Select Code to Download

my $re = do {
    local $" = '|';
    qr/@array/;
...
if ($bigstring =~ /$re/ ) {
    #...
}

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