C:\>perl -le"print 1 if undef =~ //" 1 C:\>perl -le"print 1 if undef =~ /|/" 1 C:\>perl -le"print 1 if undef =~ /blahblah|/" 1