Select Code to Download

my $regex = join '|', @prims;
while(<>){
  print "Found item in $_" if m/$regex/;
}

my $regex = join '|', map quotemeta, @prims;