use strict;
use warnings;

use Benchmark qw( cmpthese );

my %tests = (
   split    => q{ my @a = split //, $buf;             },
   split_pa => q{ local our @a; @a = split //, $buf;  },
   regex    => q{ my @a = $buf =~ /./sg;              },
   unpack_C => q{ my @a = map chr, unpack 'C*', $buf; },
   unpack_a => q{ my @a = unpack '(a)*', $buf;        },
);

$_ = "use strict; use warnings; our \$buf; $_ 1"
   for values(%tests);

local our $buf = "abcdef\x00ghik" x 10_000;
cmpthese(-2, \%tests);