use Lingua::EN::Sentence qw( get_sentences );

my $text = 'Is Mr. Hyde in? A. J. Smith Ph.D. said "Drop dead!"';

my $sentences = get_sentences($text);
say for @$sentences;