Maybe ... maybe not.
^^
####
Mr. Jones
^^^
####
I.B.M. I think.
^^^
####
use Lingua::EN::Sentence qw( get_sentences );
$text = "
I agree about the CPAN thing. Perl's a programming language. They've
seen programming languages before, they'll see them again.
But I bet they have no idea how enormous CPAN is and all the weird
and wonderful stuff that's in it. Taking something like
Lingua::EN::Sentence for instance. What's a sentence? Anything
up to a full stop? Nope, not good enough. Anything up to a full stop
followed by a space? Maybe ... maybe not. OK then, full
stop, space, uppercase letter? I'll ask Mr. Jones if he
thinks that's smart enough an algorithm. He works
for I.B.M. I think. \"Wow, that's a lot harder than it
looks.\" Oh yes and we forgot about
quotes, questionmarks and exclamations!";
my $sentences = get_sentences($text); ## Get the sentences.
foreach my $sentence (@$sentences) {
print 'SENTENCE: ', $sentence, $/;
}