Select Code to Download

$match = '(foo|baz|bar)';

while (<INPUT>) {
   next if ($_ !~ /$match/o);
}

$m_1 = '(bar|baz|foo)';
$m_2 = '([Bb]lah|[Cc]ore)';
...
      &other("var");
   }
}