actually the code given by graff works just fine:

my $max = 230;
(my $copy = $string) =~ s/(.{1,$max})\b.*/$1.../;
print "$copy\n";
[download]

Thanks!