perl -wMstrict -E 'my $x=0; say $x||1; say $x//2;'
1
0