Help for this page

Select Code to Download

Select or download this
```
1 while $str =~ s/[ ]+/_/;
```
Select or download this
```
1 while $str =~ s/[ ]+/ _ /;
```