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