No, it still has the '0' false negative:

$ perl -e '$x = 0; print "failed\n" unless $x and length($x)'
failed
$
[download]

vs.

$ perl -e '$x=0; $ print "failed\n" unless defined $x and length($x)'
$
[download]