$a=reverse(<>); for(1 .. length($a)){ $b=substr($a,0,$_); print(scalar(reverse $b) . $b . $/) }
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page