$ perl -wMstrict -e 'my $x; print "yes" if defined $x && length $x'
$ perl -wMstrict -e 'my $x; print "yes" if length $x'
$