Select Code to Download

use strict;
use warnings;
...
print ">$str<\n";
$str =~ s/\b\s+\b/ /g;
print ">$str<\n";

>  Hello
    
...
<
>  Hello World  
<