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