Select Code to Download

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

( $x=1 ) = 0;

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