Select Code to Download

use strict;
use warnings;
...
   );

close $dataFH or die $!;

ok 1 - substr
ok 2 - unpack
...
unpack 17980/s     --   -56%
substr 40619/s   126%     --
1..2