Und wie sieht das Rohfile aus?
genau so wie im ersten Post.
Ich hab nur ein my @file = <READ>; gemacht.Wenn du den Handle-Zeilen-Separator auf \n\n setzt:
my $oldlinesep = $;
$\ = "\n\n";
Korrektur.
Der Input-Line-Separator für das Handle ist $/ .
mfg Beat