( 1 ? ( $x=1 ) : $x ) = 0;

##</code><code>##

( $x=1 ) = 0;

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my $x; ($x = 1) = 0; say $x;'
0