$ perl -e '1 ? (print "hello\n" and print "bye\n") : (print "hello2\n" and print "bye2\n")'
hello
bye