for ("ab", "cd") {
  if ($str =~ /$_/) { ... }
}