while(<DATA>) {
    $line=$_;
    chomp($line);
    @line = split(/(\.)/,$line);
}

print Dumper(@line);

__DATA__
The quick. Brown fox. Jumps over the. Lazy dog.