if ($string =~ m/^(this|or_this|or_that)$/i) {
 ...
}