my $re = qr{ \( (?: (?> [^()]+ ) | (??{ $re }))* \) }x;