$str =~ s/()[\s]/_/;