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

##</code><code>##

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