#!perl -lp @a=!/ /;$a^=@a=sort map$_.$a[$a++],@;for@;=$'=~/./g;$_=$a[$_]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page