$search = "(" . join("|", map { quotemeta } @search) . ")"