in reply to regex/perl golf: loops

I've not golfed this, but it's pretty crazy. Tested in Perl 5.10, 5.12 and 5.14, but not sure if the sort algorithm is stable enough to guarantee that it will work in future versions of Perl...

use 5.010;
@r = sort
    { say "perlmonks rule!" and $a }
    (map {$_ cmp 1} $[ .. $^F) x $^F;

[download]
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

In Section Seekers of Perl Wisdom