$ perl -we 'my $a=(1 == 1) and (0);print "$a\n";'
Found = in conditional, should be == at -e line 1.
1