sub WordWrap {
    my ($text) = @_;
    $text =~ s!(\s|^)([\S]{20,}?)([\S]*)(\s|$)!$1$2 $3$4!g;
    return $text;
}

sub WordWrap {
    my ($text) = @_;
    $text =~ s!(\S{20})(\S)!$1 $2!g;
   return $text;
}

my $foo = join("",0..9)x10;
my $bar = $foo;
$foo =~ s!(\S{20})(\S)!$1 $2!g;
$bar =~ s!(\S{20})!$1 !g;
print "foo:\n$foo\n";
print "bar:\n$bar\n";