$ perl -e '$x = print "foo, " . (1 ? "yes" : "no") . " bar"; print "\n$x\n"'
foo, yes bar
1