if ($string =~ m/(this|or_this|or_that)/i)