http://qs321.pair.com?node_id=283909

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