if($str !~ /geh/){
  〜処理〜
}


!~ は 一致したときに偽となります。
なので、!~ で一致しなければ真となります。