>perl -MO=Concise,-exec -E"say 'Hello, World' for 1..3"
1  <0> enter
2  <;> nextstate(main 47 -e:1) v:%,{,2048
3  <;> nextstate(main 47 -e:1) v:%,{,2048
4  <0> pushmark s
5  <$> const[IV 1] s
6  <$> const[IV 3] s
7  <#> gv[*_] s
8  <{> enteriter(next->c last->f redo->9) lKS/8
d  <0> iter s
e  <|> and(other->9) vK/1
9      <0> pushmark s
a      <$> const[PV "Hello, World"] s
b      <@> say vK
c      <0> unstack v
           goto d
f  <2> leaveloop vK/2
g  <@> leave[1 ref] vKP/REFC
-e syntax OK

##</code><code>##

while ((PL_op = op = op->op_ppaddr(aTHX))) {
}