my $foo="asdhflakjsdfhlaksjdfhlaksdjfhalks";
$foo =~ s/(.{20}).{3,}/$1../;
print "-"x 20, "\n";
print $foo, "\n";

my $foo="asdhflakjsdfhlaksjdfh";
$foo =~ s/(.{20}).{3,}/$1../;
print "-"x 20, "\n";
print $foo,"\n";