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

will also work for this one, it's similar to the /g modifier except that it re-evaluates the entire string after every substitution. But this is for entertainment TIMTOWTDI value only cause something like this

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

will just keep running forever as it tries to replace the spaces it creates.