my $Data = "Sentence One. Sentence Two. Sentence Three. Sentence Four. Sentence Five.";

@array=split(/\.$/,$Data);
print "\n";
print "$_.\n" foreach @array;