my $pattern = join '|', map quotemeta, @dates;
my $re = qr/^logfile\..*\.($pattern)$/;
/$re/ && print "matched: $_\n" for @logfiles;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.