#!perl -p s/\./vec'Nj\xab\xa1W\xda\x8d\'3\xf3\xa4\xd7Ph\xab\x0e\xe9Aw\x9eD\xba\xade$\xe3\xd6X\xcbK\x9dd\xcb\xc6eE\xb3Qi&\xcb\x0d\xc8\xd2\xd8WyW+\xc56\xb5T\x87M\x98\xda\xae\xd2V\xab\xa5\xb9\x94)V\xa6\x97\x1a\xd2\xed\xa6\xa9F5)\xbc\x949\x96]D\x9bD%\xd9V\xb1j\xdd\xb4&\x97\x0eUU)\xe9\xa7\xd2J\xec\xa7vJ\x96\xa2II\xc5,\x9bh\xe2\xaaZ\xbbD&k\x03',$i++,1/ge
Note that non-ascii characters in the above source code will be escaped (such as \x9f).