my $joined = do {
    local $_ = join '|', @any;
    qr/$_/;
};