Как читать абзацы одновременно с 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

Ответы на вопрос(3)

Ваш ответ на вопрос