use strict;

while (my $xline = <DATA>) {
  chomp $xline;
  my @sentences = ($xline =~ /(.*?(?:\.|$))\s*/g);
  print "---\n";
  print "$_\n" for @sentences;
  print "---\n";
};

__DATA__
First line. Second line. Third line.
Fourth line. Fifth line