Well, ther's a billion ways probably to do this. If you are restricting us to no arrays, I'd go with:

$text = "SPACE";
($text =~ s/(.)(.*)/$2$1/s), print "$text\n" for 1..length $text;
[download]

-- Randal L. Schwartz, Perl hacker