#!/usr/bin/perl
use Benchmark qw(cmpthese);

my $buf = chr(1) x 2e6;

cmpthese(-10,
    {
        unpack => sub { # BrowserUk
            join( chr(0), unpack '(A1)*', $buf ) .chr(0)
        },
        substr => sub { # salva
            $out = chr(0) x (length($buf) * 2);
            substr($out, $_ * 2, 1, substr($buf, $_, 1)) for 0..length($buf);
            $out;
        },
        vec    => sub { # shmem
            $out = chr(0) x (length($buf) * 2);
            vec($out,$_<<1,8) = vec($buf,$_,8)
                for 0..length($buf)-1;
            $out;
        },
        vec2   => sub { # jmcnamara
             my $out = pack 'v*', unpack 'C*', $buf;
        },
    }
);
__END__
       s/iter    vec unpack substr   vec2
vec      1.44     --    -1%    -3%   -81%
unpack   1.42     1%     --    -2%   -81%
substr   1.40     3%     2%     --   -80%
vec2    0.275   423%   417%   408%     --