my $a = 'a';
my $b = 'b';
1 ? $a = 2 : $b = 'x';
print "a is $a\n";
print "b is $b\n";
##</code><code>##

a is x
b is b