x <- c("Total Assets in th USD", "Equity in mil EUR", "Number of Branches")
currencies <- c("USD", "EUR", "GBP")
regex <- paste0("\\b(",
paste(currencies, collapse = "|"),
")\\b")
# results in
# "\b(USD|EUR|GBP)\b"
regmatches(x, gregexpr(regex, x))
eCA8LSBjKCJUb3RhbCBBc3NldHMgaW4gdGggVVNEIiwgIkVxdWl0eSBpbiBtaWwgRVVSIiwgIk51bWJlciBvZiBCcmFuY2hlcyIpCmN1cnJlbmNpZXMgPC0gYygiVVNEIiwgIkVVUiIsICJHQlAiKQoKcmVnZXggPC0gcGFzdGUwKCJcXGIoIiwKICAgICAgICAgICAgICAgICAgICBwYXN0ZShjdXJyZW5jaWVzLCBjb2xsYXBzZSA9ICJ8IiksCiAgICAgICAgICAgICAgICAiKVxcYiIpCiMgcmVzdWx0cyBpbgojICJcYihVU0R8RVVSfEdCUClcYiIKCnJlZ21hdGNoZXMoeCwgZ3JlZ2V4cHIocmVnZXgsIHgpKQ==