Juxtapose this:

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

Also see this:

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