Here is a regex taht match nested braces.

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

if ( $text =~ /($match)/ ) {
  print $1; # text between nested ( and )
}
[download]