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