my $re = do {
    local $" = '|';
    qr/@array/;
};

##</code><code>##

my $re = do {
    local $" = '|';
    qr/@{[map {quotemeta} @array]}/;
};