$t = "SPACE";
printf "%s\n", $t = chop($t) . $t for 1..length $t;
[download]

I was trying to use the print command to do this but kept adding \n's into the code... doh. Anyway, hope this helps!