1 while $string =~ s/\([^(]*?\)//gs;