Select Code to Download

   unpackM => sub { # Multi-line unpack suggested by LanX
       seek $inFH, 0, 0;
...

       return \ $retStr;
   },

ok 1 - brutish
ok 2 - pushAoA
...
rsubstr 49.1/s   4193%   2827%  1634%  1574%  308%    40%     3%      
+--    -20%
unpackM 61.1/s   5247%   3546%  2059%  1985%  408%    74%    28%     2
+5%      --
1..9

   ANDmask => sub { # Multi-line AND mask by johngg
       seek $inFH, 0, 0;
...

       return \ $retStr;
   },

ok 1 - ANDmask
ok 2 - brutish
...
unpackM 58.7/s   5194%   3321% 1979% 1914%  377%    68%    25%     22%
+      --    -44%
ANDmask  105/s   9407%   6045% 3634% 3517%  757%   201%   124%    118%
+     80%      --
1..10