D:\tmp>type tst_b_xref3.pl
unless ($var1) {
    $var2++;
}
else {
    $var3++;
}

##</code><code>##

D:\tmp>perl -MO=Concise,-src tst_b_xref3.pl|find "var"
tst_b_xref3.pl syntax OK
# 1: unless ($var1) {
3              <#> gvsv[*var1] s ->4
# 5:     $var3++;
7                    <#> gvsv[*var3] s ->8
# 2:     $var2++;
d                    <#> gvsv[*var2] s ->e

##</code><code>##

$ perl -MO=Concise,-src tst_b_xref3.pl|grep var
tst_b_xref3.pl syntax OK
# 1: unless ($var1) {
3                 <#> gvsv[*var1] s ->4
# 2:     $var2++;
8                    <#> gvsv[*var2] s ->9
# 5:     $var3++;
e                    <#> gvsv[*var3] s ->f

##</code><code>##

D:\tmp>perl -MO=Deparse tst_b_xref3.pl
tst_b_xref3.pl syntax OK
if ($var1) {
    ++$var3;
}
else {
    ++$var2;
}