>perl -wMstrict -le
"my $cond = shift;
 $a = $b = 99;
 ($cond ? $a : $b) = ($cond ? 2 : 3);
 print qq{a $a  b $b};
"
0
a 99  b 3

>perl -wMstrict -le
"my $cond = shift;
 $a = $b = 99;
 ($cond ? $a : $b) = ($cond ? 2 : 3);
 print qq{a $a  b $b};
"
1
a 2  b 99