Select Code to Download

 @line = split(/(\.)/,$line);

If the PATTERN contains parentheses, additional list elements are crea
+ted from each matching substring in the delimiter.

while(<DATA>) {
    $line=$_;
...

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

@line = (
          'The quick',
...
          ' Lazy dog',
          '.'
        );