use warnings;
my $v = '';
$v ||= 0;
print "\$v = '$v'";