C:\>perl -MO=Deparse -e "print 'this' if $x"
print 'this' if $x;
-e syntax OK
C:\>perl -MO=Deparse -e "print 'this' if 0"
'???';
-e syntax OK