$foo          ? do { bar($_) for 1..3;  }          :
$baz eq $quux ? (warn, return -1)                  :
$answer == 42 ? print "but what's the question?\n" :
do { print "who knows\n" };