use strict;
use warnings;
use Benchmark qw( cmpthese );

my $fn = '/boot/vmlinux-2.6.18.8-96-default.gz';
open my $fh, '<', $fn or die $!;
read $fh, my $buffer, 2_000_000 or die $!;
print length $buffer, " in\n";
close $fh;

my $subs = {
    by_index => sub {
       my ($p0, @offs)=(-1, ());
       push @offs, $p0 while +($p0=index $buffer, "\xaa", $p0+1) != -1;
       push @offs, $p0 while +($p0=index $buffer, "\xbb", $p0+1) != -1;
       push @offs, $p0 while +($p0=index $buffer, "\xcc", $p0+1) != -1;
       return 0 + @offs
    },
    by_regex => sub {
       my @offs=();
       push @offs, pos($buffer) while $buffer =~ /\xaa/g;
       push @offs, pos($buffer) while $buffer =~ /\xbb/g;
       push @offs, pos($buffer) while $buffer =~ /\xcc/g;
       return 0 + @offs
    }
};
cmpthese( -3, $subs );