Select Code to Download

>perl -e"print qq{\x03\x1A}" | perl -le"print uc unpack 'H*', <STDIN>"
031A
...
$perl -e'print qq{\x03\x1A}' | perl -le'print uc unpack "H*", <STDIN>'
031A

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

my @records;
local $/ = \$RECSIZE;
...
while (<$fh>) {
   push @records, parse_rec($_);
}

my @records;
local *_;
while (read($fh, $_, $RECSIZE)) {
   push @records, parse_rec($rec);
}