my $str = "George         
     
                  Best
";

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

print "'$str'\n";