Select Code to Download

$ perl -MO=Concise,-exec -e'my @a = split //, $buf;'
1  <0> enter
...
6  <@> split[t5] vK
7  <@> leave[1 ref] vKP/REFC
-e syntax OK

our @a = split(//, $buf);

split_into(@a, //, $buf);

$ perl -MO=Concise,-exec -e'my @a; @a = split //, $buf;'
1  <0> enter
...
c  <2> aassign[t4] vKS
d  <@> leave[1 ref] vKP/REFC
-e syntax OK

           Rate    regex unpack_C unpack_a    split split_pa
regex    10.4/s       --      -2%     -44%     -50%     -73%
...
unpack_a 18.8/s      79%      76%       --     -10%     -52%
split    20.9/s     100%      97%      12%       --     -46%
split_pa 38.8/s     271%     264%     107%      85%       --

use strict;
use warnings;
...

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