$ perl -MO=Concise,-exec -e'my @a = split //, $buf;'
1  <0> enter
2  <;> nextstate(main 1 -e:1) v:{
3  <0> pushmark s
4  </> pushre(/""/) s/64
5  <#> gvsv[*buf] s
6  <$> const[IV 0] s
7  <@> split[t3] lK
8  <0> pushmark s
9  <0> padav[@a:1,2] lRM*/LVINTRO
a  <2> aassign[t4] vKS
b  <@> leave[1 ref] vKP/REFC
-e syntax OK

$ perl -MO=Concise,-exec -e'our @a = split //, $buf;'
1  <0> enter
2  <;> nextstate(main 1 -e:1) v:{
3  </> pushre(/""/ => @a) s/64
4  <#> gvsv[*buf] s
5  <$> const[IV 0] s
6  <@> split[t5] vK
7  <@> leave[1 ref] vKP/REFC
-e syntax OK