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";
Dann kannst du
while(<FILE>){
$_ =~m/$some_pattern/ and do_something();
}
verwenden.
Denke daran, den Handle-Zeilen-Separator wieder zurückzusetzen.
$\ = $oldlinesep;
Kopieren eines Files in einen Array ist fast immer schlecht.
mfg Beat