if (!($string =~ /keyword/)) { print "match failed"; }

##</code><code>##

unless ($string =~ /keyword/) { print "match failed"; }

##</code><code>##

if ($string !~ /keyword/) { print "match failed"; }