$str =~ s/ +/_/g;