my $joined = do {
  local $" = '|';
  qr/@pats/;
};

##</code><code>##

my $joined = qr/${\join '|', @pats}/;