Select Code to Download

my $regex = do {
    my @escaped;
    push @escaped, quotemeta for @filelist;
    my $joined = join '|', @escaped;
    qr/^(?:$joined)$/;
};

my $regex = '^(?:' . join('|', map quotemeta, @filelist) . ')$';