examples <- c('Ben likes bananas.','Ben likes mangoes.','Ben likes plums.')
words <- c('bananas', 'mangoes', 'plums')
regex <- paste0('Ben likes (', paste(words, collapse='|'), ')\\.')
unlist(regmatches(examples, gregexpr(regex, examples)))
ZXhhbXBsZXMgPC0gYygnQmVuIGxpa2VzIGJhbmFuYXMuJywnQmVuIGxpa2VzIG1hbmdvZXMuJywnQmVuIGxpa2VzIHBsdW1zLicpCgp3b3JkcyA8LSBjKCdiYW5hbmFzJywgJ21hbmdvZXMnLCAncGx1bXMnKQpyZWdleCA8LSBwYXN0ZTAoJ0JlbiBsaWtlcyAoJywgcGFzdGUod29yZHMsIGNvbGxhcHNlPSd8JyksICcpXFwuJykKCnVubGlzdChyZWdtYXRjaGVzKGV4YW1wbGVzLCBncmVnZXhwcihyZWdleCwgZXhhbXBsZXMpKSk=