my $z;
if ($x) {$z  = "true\n"} else {$z  = "false\n"}
##</code><code>##

 
my $z = $x ? "true\n" : "false\n";
##</code><code>##

  DB<22> 1 ? $a : $b = 1

  DB<23> x $a,$b
0  1
1  undef
  DB<24> 0 ? $a : $b = 2

  DB<25> x $a,$b
0  1
1  2