Help for this page

Select Code to Download

Select or download this

my $str = "George         
     
                  Best
...
$str =~ s/(?<=[[:alpha:]])(?:\s\s+|[^\S ]+)(?=[[:alpha:]])/ /g;

print "'$str'\n";