Ahh. Never use $1 unless you've checked the success of the match.

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

-- Randal L. Schwartz, Perl hacker