|
|
|
| Don't ask to ask, just ask | |
| PerlMonks |
nested regexby chunlou (Curate) |
| on Aug 14, 2003 at 15:24 UTC ( [id://283909]=obfuscated: print w/replies, xml ) | Need Help?? |
|
$l=qr/\(([^()]|(??{$l})(?{print$1}))*\)/;'(c(r(e(p(u)s)c)l)e)'=~/\w$l\w/g;print$`|$1
Back to
Obfuscated Code
|
|
||||||||||||||||||||||