$ perl -MO=Concise,-exec, -e 'print ( two + two == five ? "true" : "false" )'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v:{
3  <0> pushmark s
4  <$> gv(*two) s
5  <1> rv2gv sKR/1
6  <$> const(PV "two") s/BARE
7  <$> const(PV "five") s/BARE
8  <2> eq sK/2
9  <|> cond_expr(other->a) lK/1
a      <$> const(PV "true") s
           goto b
d  <$> const(PV "false") s
b  <@> print vKS
c  <@> leave[1 ref] vKP/REFC
-e syntax OK