When looking at precedence issues, the -p (full parens) Deparse option is helpful.

> perl -MO=Deparse,-p -e 'my($yes2) = defined $bad and -f $bad;'
((my($yes2) = defined($bad)) and (-f $bad));
[download]