Select Code to Download

Benchmark: timing 100000 iterations of substr, unpack...

...
unpack 40486/s     --   -28%
substr 55866/s    38%     --

sub {
  my $line = shift;
...
                     @236A4', $line);
};