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