($x, $y) = ("ab", "c");
for (1, 2) {
  if ($str =~ /$x$y/) { ... }
  ($x, $y) = ("a", "bc");
}