#!/usr/bin/perl -w
use strict;

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