perl -e 'my $a=(1 == 1) && (0);print "$a\n";'

##</code><code>##

print was unexpected at this time.