x <- "Chemical: (BETA-CYFLUTHRIN = 118831)"
regmatches(x, regexpr("(?<=\\().*?(?= =)", x, perl=TRUE))