targettext <- c("DOG MOUSE CAT","DOG MOUSE:CAT","DOG_MOUSE9CAT","MOUSE9CAT","DOG_MOUSE")
searchwords <- c("MOUSE","FROG")
grep(paste0("(?<![A-Z])(?:", paste(searchwords, collapse = "|"), ")(?![A-Z])"), targettext, perl=TRUE)
dGFyZ2V0dGV4dCA8LSBjKCJET0cgTU9VU0UgQ0FUIiwiRE9HIE1PVVNFOkNBVCIsIkRPR19NT1VTRTlDQVQiLCJNT1VTRTlDQVQiLCJET0dfTU9VU0UiKQpzZWFyY2h3b3JkcyA8LSBjKCJNT1VTRSIsIkZST0ciKQpncmVwKHBhc3RlMCgiKD88IVtBLVpdKSg/OiIsIHBhc3RlKHNlYXJjaHdvcmRzLCBjb2xsYXBzZSA9ICJ8IiksICIpKD8hW0EtWl0pIiksIHRhcmdldHRleHQsIHBlcmw9VFJVRSk=