$str =~ s/\s+/_/ig;