$l=qr/\(([^()]|(??{$l})(?{print$1}))*\)/;'(c(r(e(p(u)s)c)l)e)'=~/\w$l\w/g;print$`|$1