Select Code to Download

use Lingua::EN::Sentence qw(get_sentences);
open FH, "SomeFile.txt" or die "can't open: $!\n";
...
}
my $sentences=get_sentences($all);  ## Get the sentences.

my @all=<>;

...
    print "$_";
    foreach (split /([.,;])/, $_) {print "$_\n"}
}

local $/;
my $all=<>;