#!/usr/bin/perl

use strict;
use warnings 'all';

my $a = undef;
print "1) \$a eq 'name'\n" if ($a or 0) eq 'name';

$a = 'name';
print "2) \$a eq 'name'\n" if ($a or 0) eq 'name';

$a = 'not name';
print "3) \$a eq 'name'\n" if ($a or 0) eq 'name';