my @records = map parse_rec($_),
              map /(.{$RECSIZE})/sg,
              do { local $/; <$fh> };