# Look for the empty line between records
local  $/ = "\n\n";

while (defined (my $record = <$fIn>)) {