my $alt_foo_re = do {
    local $" = '|';
    qr/@foo/;
};

# same as:
# my $alt_foo_re = do {
#     my $alt_foo = join '|', @foo;
#     qr/$alt_foo/;
# }