my $data = getDataFromFile();

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