>perl -wMstrict -le
"for my $expression (0, 1) {
   my $var = '';
   $expression ? $var = 'foo' : $var = 'bar';
   print qq{if \$expression is $expression, \$var is '$var'}
   }
"
if $expression is 0, $var is 'bar'
if $expression is 1, $var is 'bar'