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