Split the line into sentences first:

my $data = getDataFromFile();

my @sentences = split /(?<\.)\s+(?=[A-Z)/, $data;
[download]