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