#!perl -pl $a=(($_ x=8)&='\x7f'x(s#.\K#$a=~/./g;$&#ge/4-1)|$a|~$a)x2
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page