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