sidhekin@blackbox:~$ perl
my ($x, $y) = (0, 0);

$x = $x && 1; # or $x &&= 1;
$y = !!$y;

print "\$x: '$x'\n\$y: '$y'\n";

__END__
$x: '0'
$y: ''
sidhekin@blackbox:~$