Select Code to Download

{
  local $" = '|';
  $good = $file =~ /^(@patterns)$/;
}

for my $pattern (@patterns) {
  $good = 1, last if $file =~ /^$pattern$/
}