For the metacharacters case, how about this:

my $re = do {
    local $" = '\E|\Q';
    qr/\Q@array\E/;
};
[download]

That lets you ditch the map and array refernceing/dereferencing inside the regex. Though it is arguably not as clear.