This is my favorite way:

my $any = do {
    local $" = '|';
    qr/@pats/;
};
[download]

Some may call it obfuscated, but I think it's particularly clean.