perl -e"die //"
perl -e"warn //"
perl -e"die $_ =~ //"
perl -e"die undef =~ //"