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, $/; }