Select Code to Download

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