data <- c("DETROIT","DETROIT USA","DETROIT UNITED STATES")
keep <- c("USA","UNITED STATES")
regex <- paste0(".*\\s*\\b(",paste0(keep,collapse="|"), ")\\b")
sub(regex, "\\1", data)
ZGF0YSA8LSBjKCJERVRST0lUIiwiREVUUk9JVCBVU0EiLCJERVRST0lUIFVOSVRFRCBTVEFURVMiKQprZWVwIDwtIGMoIlVTQSIsIlVOSVRFRCBTVEFURVMiKQoKcmVnZXggPC0gcGFzdGUwKCIuKlxccypcXGIoIixwYXN0ZTAoa2VlcCxjb2xsYXBzZT0ifCIpLCAiKVxcYiIpCnN1YihyZWdleCwgIlxcMSIsIGRhdGEpCg==