sub trim_length {
   my ( $str, $desired_len ) = @_;
   $str =~ s/\s+$//; # Strip trailing whitespace
   return $str if length $str <= $desired_len;
   return sprintf "%.${desired_len}s ...", 
      substr $str, 0, ( rindex $str, ' ', $desired_len );
}