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";