$string =~ s/^(.{0,$maxlength})\b.*$/$1.../s;