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