http://qs1969.pair.com?node_id=474271


in reply to create search string from array elements

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

Dave.