perl -e'print q/foo/ and q/bar/;'
perl -e'print q/foo/ && q/bar/;

##</code><code>##

perl -e'print UNDEF q/foo/ or die;
perl -e'print UNDEF q/foo/ || die;