Help for this page
if (length ($string) > 15) { my $last; ... $string = substr($string,0,12) . "..."; } }
( $string =~ s/(.{0,$starting_length})\s/"$1...$last"/e ) or $string = + substr($string,0,12) . "...";