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