C:\WINDOWS\system32>perl -MO=Concise -e"if ($x) { print $x }"
8  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
-     <1> null vK/1 ->8
4        <|> and(other->5) vK/1 ->8                              # if -> and
-           <1> ex-rv2sv sK/1 ->4
3              <#> gvsv[*x] s ->4
-           <@> scope vK ->-
-              <;> ex-nextstate(main 3 -e:1) v ->5
7              <@> print vK ->8
5                 <0> pushmark s ->6
-                 <1> ex-rv2sv sK/1 ->7
6                    <#> gvsv[*x] s ->7
-e syntax OK

C:\WINDOWS\system32>perl -MO=Concise -e"unless ($x) { print $x }"
8  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
-     <1> null vK/1 ->8
4        <|> or(other->5) vK/1 ->8                               # unless -> or
-           <1> ex-rv2sv sK/1 ->4
3              <#> gvsv[*x] s ->4
-           <@> scope vK ->-
-              <;> ex-nextstate(main 3 -e:1) v ->5
7              <@> print vK ->8
5                 <0> pushmark s ->6
-                 <1> ex-rv2sv sK/1 ->7
6                    <#> gvsv[*x] s ->7
-e syntax OK

C:\WINDOWS\system32>perl -MO=Concise -e"unless (0) { print $x }"
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
-     <@> scope vK/FOLD ->6
-        <;> ex-nextstate(main 3 -e:1) v ->3
5        <@> print vK ->6                                        # always true
3           <0> pushmark s ->4
-           <1> ex-rv2sv sK/1 ->5
4              <#> gvsv[*x] s ->5
-e syntax OK


C:\WINDOWS\system32>perl -MO=Concise -e"unless (1) { print $x }"
3  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3                         # never true
-     <0> ex-const v/SHORT ->3
-e syntax OK