$ perl -MO=Deparse,-p -e'print $var ? "yes" : "no";'
print(($var ? 'yes' : 'no'));
-e syntax OK