$ perl -MO=Deparse,-p -e '$x ? $a = 2 : $b = "x";'
(($x ? ($a = 2) : $b) = 'x');
$ perl -MO=Deparse,-p -e '$x ? ($a = 2) : ($b = "x");'
($x ? ($a = 2) : ($b = 'x'));