my $var = 0;
$var ||= 'test';
print $var,"\n";
# test

$var = undef;
$var ||= 'test';
print $var,"\n";
# test

$var = '';
$var ||= 'test';
print $var,"\n";
# test

# ab Perl5.10
$var = 0;
$var //= 'test';
# 0

$var = undef;
$var //= 'test';
# test

$var = '';
$var //= 'test';
# ''