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