C:\>perl -E "my $x = 0 ; say $x // 'true'; my $y = 1; say $y // 'true';$x = undef; my $a=$x // warn 'RHS evaluated'; say $a;" 0 1 RHS evaluated at -e line 1. 1