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