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