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