sub trimTo {
	my ($line, $length) = @_;
	$line=~s/([^ \s]{$length})([^ \s])/$1...\n$2/g;
	return $line;
}