Wie lese ich mit Perl Absätze gleichzeitig?

Wenn ich schreibe

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

while( <DATA> ) {
    print "\n-------------------------\n\n";
    print;
    <>;
}

nach jedem "return" bekomme ich eine zeile.

Warum bekomme ich mit dem nächsten Skript nach jedem "Zurück" einen Absatz?

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

local $/ = "";

while( <DATA> ) {
    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

Antworten auf die Frage(3)

Ihre Antwort auf die Frage