Lineseperator Problem

[Karle]

Hi,

ich komme mal wieder nicht weiter ...

open (X, "$SSH $CMD 2>/dev/null |") or die "Can't run program: $!\n";  
        while (my $section = <X>)  
        {  
                print "BEGIN $section END\n";  
        }  

Ausschnitt:

BEGIN   Ausgabe 1
 END
BEGIN   Ausgabe 2
 END
BEGIN   Ausgabe 3
 END
BEGIN
 END
BEGIN   Ausgabe 1
 END
BEGIN     Ausgabe 2
 END
BEGIN   Ausgabe 3
 END
BEGIN
 END

Soweit so gut. Nun möchte ich aber innerhalb einer "Sektion" parsen, deshalb setze ich den lineseperator neu:

        open (X, "$SSH $CMD 2>/dev/null |") or die "Can't run program: $!\n";  
        my $oldlinesep = $/;  
        my $newlinesep = "\n\n";  
        $/ = $newlinesep;  
        while (my $section = <X>)  
        {  
                print "BEGIN $section END\n";  
        }

Ergebnis:
BEGIN Ausgabe 1
Ausgabe 2
Ausgabe 3

Ausgabe 1
Ausgabe 2
Ausgabe 3 END

Das ist nicht so gut, da ich ja gerne folgendes Ergebnis hätte:

BEGIN Ausgabe 1
Ausgabe 2
Ausgabe 3 END

BEGIN Ausgabe 1
Ausgabe 2
Ausgabe 3 END

Hat jemand eine Idee, wo mein Fehler liegt?

Danke.
Karle