Select Code to Download

            Rate substr_it unpack_it
substr_it 2341/s        --      -47%
unpack_it 4384/s       87%        --
Results tally

#! perl -slw
use strict;
...
Results tally

C:\test>

sub substr_it{
    ( substr( $_[0], 413,  30),
...
    , substr( $_[0], 236,   4),
    );
}

            Rate substr_it unpack_it
substr_it 3836/s        --      -14%
unpack_it 4460/s       16%        --
Results tally

use constant FORMAT =>
'@413A30 @373A30 @343A30 @245A15 @679A30 @10A10 @900A100 @500A2 
...
substr_it 3821/s        --      -16%
unpack_it 4575/s       20%        --
Results tally