if ( $string !~ m/pattern/ ) { ..... }

##</code><code>##

if ( not $string =~ m/pattern/ ) { ...... }

##</code><code>##

unless ( $string =~ m/pattern/ ) { ...... }