http://www.perlmonks.org?node_id=229052


in reply to string does not contain

TMTOWTDI

negate the if to an unless: 


my $string = "foo bar baz";
print "no hello" unless $string =~ /hello/;

[download]
A.A.

In Section Seekers of Perl Wisdom