No such thing as a small change | |
PerlMonks |
comment on |
( [id://3333]=superdoc: 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
In reply to nested regex by chunlou
|
|