$ perl -MO=Concise,-exec -e'if ($a) { print }'
1  <0> enter
2  <;> nextstate(main 3 -e:1) v:{
3  <#> gvsv[*a] s
4  <|> and(other->5) vK/1
5      <0> pushmark s
6      <#> gvsv[*_] s
7      <@> print vK
8  <@> leave[1 ref] vKP/REFC
-e syntax OK