if (length($string) > 15) {
  $string =~ s/^(.{0,12})\b\s.*/$1.../gi;
}