$i=@a=<>=~/./g;print$s=$"x$i,"@a[$i..$#a]$s "while$i--
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page