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

##</code><code>##

     {n}?   Match exactly n times
     {n,}?  Match at least n times
     {n,m}? Match at least n but not more than m times