Select Code to Download

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) . "...";