for(<>=~/./g){$a-=$b,print chr$b+44while$b=$a<=>ord;print'.'}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page