use strict;
use warnings;

my @in;

{
local $/ = "\n\n"; # Record-Trenner für Einlesen setzen
@in = <DATA>;      # Daten einlesen
}

for my $wert ( 0 .. $#in ) {
    print $in[ $wert ];
}

__DATA__
Zeile nummer 1
Zeile nummer 2
Zeile nummer 3


Zeile nummer 4

Zeile nummer 5 
Zeile nummer 6
Zeile nummer 7