(my($yes2)=defined $bad) and -f $bad;

##</code><code>##

[~]$ perl -MO=Deparse -e 'my($yes2) = defined $bad and -f $bad;'
-f $bad if my($yes2) = defined $bad;
-e syntax OK