Help for this page

Select Code to Download

Select or download this

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;

Select or download this

Is Mr. Hyde in?
A. J. Smith Ph.D. said "Drop dead!"