Select Code to Download

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

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

my @strings = make_10_strings();
for (@strings) {
...
    if ($_ =~ $p) { handle($_) }
  }
}

my @strings = make_10_strings();
for (@strings) {
...
    if ($_ =~ $p) { handle($_) }
  }
}