use strict;
use warnings;

my $dir     = shift;
my $IDs     = join '|', map { /(.+)/; "\Q$1\E" } <>;
my @results = grep /$IDs/, <$dir/*>;
print "$_\n" for @results;