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