werden da zufaellig die Datensaetze durch eine leerzeile getrennt? ich werde diesbezueglich aus dem code nicht recht schlau. Falls ja, kann man auch sowas wie das folgendes machen:
{
local $/ = "\n\n"; # blocktrennzeichen auf leere zeile setzen
while (<FH>) {
my @lines = split(/\n/, $_);
..
[/code]
probieren