$ perl -Mstrict -e'if (my $x = 0) {} elsif (1) { print $x,$/}'
0
$