$string =~ s/\(.*\)//;