##
U:\>perl -MO=Deparse -le "$x = 5; if (0) { print $x }"
$x = 5;
'???';
##
##
U:\>perl -MO=Deparse -le "$x = 5; if (1) { print $x }"
$x = 5;
print $x;;
##
##
U:\>perl -MO=Deparse -le "$x = 5; if (! 0) { print $x }"
$x = 5;
print $x;;