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