sub get_nsentences {
  my $text = shift;
  my $count = shift || 1;
  join '', ($text =~ /.*?[\.!?]/sg)[0..$count-1]
}