Select Code to Download

my $large_pattern = join '|', @PatternList;

my @matches = grep /$large_pattern/, @array;