Or just a simple regex should work. What about this?

$s =~ s/(.*)\s(\(.*\))\s(.*)/$1 $3/g;
print "matched $2\n";
print $s;
[download]