if (length($str) > 1000) {
  substr($str, 1+rindex($str, '.', 1000)) = "";
}