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.