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