$str =~ s/\s|\(|\)/_/g;