if ( $string !~ /pattern/ ) {