sub trimTo {
	my( $str, $n ) = @_;	
	return $str if length $str < $n;

      my $lastSpace = 1 + rindex( $str, ' ', $n-3 );
      ## Truncate length allowing to always include the  ' ' before '...'
      my $truncLen = ( $lastSpace || $n-3 ) - 1 ; 

	return substr( $str, 0, $truncLen ) . ' ...';
}