my $regex = do {
  local $" = '|';
  qr/(?:@regexes)/;
};
my @matches = grep /$regex/, @array;