Select Code to Download

my $tableList = map qr/$_/i,
                join '|',
...
for my $Q (@fileList) {
   push @tableUsed, $Q =~ /$tableList/g;
}

my $tableList = map qr/$_/i,
                join '|',
...
}

my @tableUsed = sort keys %tableUsed;