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

##</code><code>##

my @all=<>;

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

##</code><code>##

local $/;
my $all=<>;