#!perl -pa s/@F|/chr$\x10%31+62/ewhile$\x10=$\x10?$\x10/31-2:$_
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page