Select Code to Download

Maybe ... maybe not.
        ^^

Mr. Jones
  ^^^

I.B.M. I think.
     ^^^

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

...
foreach my $sentence (@$sentences) {
    print 'SENTENCE: ', $sentence, $/;
}