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