$string =~ s/^(.{15}).+$/$1/;

##</code><code>##

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