1 while $str =~ s/[ ]+/_/;

##</code><code>##

1 while $str =~ s/[ ]+/ _ /;