Help for this page

Select Code to Download

Select or download this

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