in reply to regex/perl golf: loops
print<<R x10 perlmonks rule! R [download]
"perlmonks rule!\n"=~/.*?(??{print;$"})/; [download]
_:${~$/&~$;&$^}++;print "perl monks rule!\n";goto _ if(${~$/&~$;&$^}<1 +0); [download]