$ perl -MO=Concise,-exec -e'print if $a'
1  <0> enter
2  <;> nextstate(main 1 -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

$ perl -MO=Concise,-exec -e'$a and print'
1  <0> enter
2  <;> nextstate(main 1 -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