foreach $i (1..50){
my $text = "Dieser Text sollte gekuerzt werden, aber nur bei einem Wortende nach einer Anzahl von Zeichen." ;

if( $text =~ /(.{$i}\w+)/ ){
  $text = $1."...";
}
print $text, "\n";
}