#! perl -slw
use strict;
use vars qw[$line @s @s2 @u1 @u2];
use Benchmark qw[cmpthese];

$line = (join'','a' .. 'y') x 40;

sub substr_it{
    my @bits;
    $bits[0]  = substr $_[0], 413,  30;
    $bits[1]  = substr $_[0], 373,  30;
    $bits[2]  = substr $_[0], 343,  30;
    $bits[3]  = substr $_[0], 245,  15;
    $bits[4]  = substr $_[0], 679,  30;
    $bits[5]  = substr $_[0],  10,  10;
    $bits[6]  = substr $_[0], 900, 100;
    $bits[7]  = substr $_[0], 500,   2;
    $bits[8]  = substr $_[0], 313,  30;
    $bits[9]  = substr $_[0], 844,  44;
    $bits[10] = substr $_[0], 111,   1;
    $bits[11] = substr $_[0], 100, 100;
    $bits[12] = substr $_[0], 454,  30;
    $bits[13] = substr $_[0], 240,   3;
    $bits[14] = substr $_[0], 236,   4;

    @bits;
}


sub unpack_it{
    my $fmt = '@413A30 @373A30 @343A30 @245A15 @679A30 @10A10 @900A100
+'
            . '@500A2 @313A30 @844A44 @111A1 @100A100 @454A30 @240A3 @
+236A4';

    unpack( $fmt, $_[0]);
}

cmpthese( -3, {
    substr_it    => '@s  = substr_it  $line;',
    unpack_it    => '@u1 = unpack_it  $line;',
});

print 'Results tally';

__END__
[download]