perl -e 'print "1\n" if "";'
perl -e 'print "1\n" if " ";'
perl -e '@a=(); print "1\n" if @a;'
perl -e '@a=(undef); print "1\n" if @a;'