#! /usr/bin/perl
my $braces;
$braces = qr/(\((?:(?>[^\(\)]+)|(??{$braces}))*\))/;

while (<>) {
  if ($_ =~ $braces) {
    print "Matched '$1'\n\n";
  }
  else {
    print "No match\n\n";
  }
}