my $re = do {
    local $" = '|';
    qr/^@{[map {quotemeta} @list]}$/;
};
[download]

In this case, it would appear that they are all the same length, but in general, the list should be sorted longest-first, so that @list=qw/foo bar foobar/ will ever match foobar.