while ( $str =~ s/\(([^)]+)\)/$1/g ){};