my $balance;
# Notice declaring $balance beforehand is important, 
# otherwise you pick up the global inside (??{})
$balance=qr/(?:[^()]|\((??{$balance})\))*/;
$string =~ s/\($balance\)//g;