local $/ = ""; while (my @records = <$fh>) { foreach my $line (@records) {