Select Code to Download

while (<>) {
  for my $p (qr/a+b/, qr/c+d/, qr/e+f/) { foo() if /$p/ }
...
while (<>) {
  for my $s ('a+b', 'c+d', 'e+f') { foo() if /$s/ }
}