sub reduce_to_first_sentence {
  local $_ = shift;
  s/([.!?])\s.*/$1/s;
  $_;
}