m!.*?!i ##

##

m!.*?!i

##

##

#!/usr/bin/perl 

for (<>) {
        m!.*?!i ? print "match:    " : print "no match: ";
        print;
}

##

##

blah
blah
blah
bar
bar

##

##

match:    blah
no match: blah
no match: blah
match:    bar
match:    bar