D:\Development>perl -MO=Deparse -e "my $x=1 if 0; my $y=1 if 1;"
'???';
my $y = 1;
-e syntax OK