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