chomp,s/./ $&/g,$b=$_,$_|=$a,$a=~y/./|/,$_|=$".$a|substr($a,1),$a=$b,y/./_/,print$_,$/for<>,$c
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page