Select Code to Download

#!/usr/bin/perl

...

}

my $regex = "(";
foreach (@array2) {
  $regex .= $_ . "|";
}
$regex .= ")";

if ($i =~ m/$regex/) {

#!/usr/bin/perl

...
# Do something with $i now.

}