$input =~ s/\((.*)\)/$1/x;