my $c=0;
s/ \(      (?{++$c})
 | \)      (?{--$c})
 | ([^()]+)
 /$1 if ($c==0)/gex;