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

##</code><code>##

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