#!perl -lp $b=!s/.(.)(.)/$&&$1^$2/ge;y/ ,)\x1a4(#.=/0-8/;for$a(qw/\x06 \? \x04 \d$/){$b.=/\d?$a/?1+$&:$b&&0}$_=$b
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page