$text = "SPACE"; ($text =~ s/(.)(.*)/$2$1/s), print "$text\n" for 1..length $text; [download]
-- Randal L. Schwartz, Perl hacker
In reply to Re: PUZZLED by merlyn in thread PUZZLED by Anonymous Monk