s <- "|tree| Lorem ipsum dolor sit amet, |house| consectetur adipiscing elit,
|street| sed do eiusmod tempor incididunt ut labore et |car| dolore magna aliqua."
words1 <- list("tree","house","street","car")
library(stringr)
expression <- paste0("\\|(", paste(words1, collapse="|"),")\\|\\s*([^|]*)")
result <- str_match_all(s, expression)
lapply(result, function(x) x[,-1])
cyA8LSAifHRyZWV8IExvcmVtIGlwc3VtIGRvbG9yIHNpdCBhbWV0LCB8aG91c2V8IGNvbnNlY3RldHVyIGFkaXBpc2NpbmcgZWxpdCwgCnxzdHJlZXR8IHNlZCBkbyBlaXVzbW9kIHRlbXBvciBpbmNpZGlkdW50IHV0IGxhYm9yZSBldCB8Y2FyfCBkb2xvcmUgbWFnbmEgYWxpcXVhLiIKd29yZHMxIDwtIGxpc3QoInRyZWUiLCJob3VzZSIsInN0cmVldCIsImNhciIpCmxpYnJhcnkoc3RyaW5ncikKZXhwcmVzc2lvbiA8LSBwYXN0ZTAoIlxcfCgiLCBwYXN0ZSh3b3JkczEsIGNvbGxhcHNlPSJ8IiksIilcXHxcXHMqKFtefF0qKSIpCnJlc3VsdCA8LSBzdHJfbWF0Y2hfYWxsKHMsIGV4cHJlc3Npb24pCmxhcHBseShyZXN1bHQsIGZ1bmN0aW9uKHgpIHhbLC0xXSkK
[[1]]
[,1] [,2]
[1,] "tree" "Lorem ipsum dolor sit amet, "
[2,] "house" "consectetur adipiscing elit, \n"
[3,] "street" "sed do eiusmod tempor incididunt ut labore et "
[4,] "car" "dolore magna aliqua."