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