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