$ perl -wE 'my $x; say $x ne "" ? 1 : 0'
Use of uninitialized value $x in string ne at -e line 1.
0
$ perl -wE 'my $x = ""; say $x ne "" ? 1 : 0'
0
$