( $string =~ s/(.{0,$starting_length})\s/"$1...$last"/e ) or $string = substr($string,0,12) . "...";