# original: /([^(]+)(\([^)]+\))(.*)/

my $not_paren = "[^(]+";
my $paren     = "\\(";
my $rest      = ".*";

# now reads:
$string =~ /($not_paren)($paren$not_paren$paren)($rest)/;