Select Code to Download

perlmonksrule(9);
sub perlmonksrule
...
    s/sr/s r/;
    print /::(.*)$/,"!\n";
}

$a=9;a();sub a{a()if($a--);print"perlmonks rule!\n";}