Как читать абзацы одновременно с Perl?

Когда я пишу

#!/usr/bin/perl -w
use strict;

while(  ) {
    print "\n-------------------------\n\n";
    print;
    ;
}

после каждоговернуть" Я получаю одну строчку.

Почему Дон'я получаю следующий скрипт после каждоговернуть" один абзац?

#!/usr/bin/perl -w
use strict;

local $/ = "";

while(  ) {
    print "\n-------------------------\n\n";
    print;
    ;
}

__DATA__
line one
line two
line three
line four
line five

line six
line seven
line eigth
line nine

line ten
line eleven
line twelve