aQuote = "The big boat has a big assortment of big things."
theMatches = regmatches(aQuote, gregexpr("big ([a-z]+)", aQuote ,ignore.case = TRUE))
results = lapply(theMatches, function(m){
len= length(m)
for (i in 1:len)
{
print(m[[i]])
}
})# your code goes here
YVF1b3RlID0gIlRoZSBiaWcgYm9hdCBoYXMgYSBiaWcgYXNzb3J0bWVudCBvZiBiaWcgdGhpbmdzLiIKdGhlTWF0Y2hlcyA9IHJlZ21hdGNoZXMoYVF1b3RlLCBncmVnZXhwcigiYmlnIChbYS16XSspIiwgYVF1b3RlICxpZ25vcmUuY2FzZSA9IFRSVUUpKQoKcmVzdWx0cyA9IGxhcHBseSh0aGVNYXRjaGVzLCBmdW5jdGlvbihtKXsKICAgIGxlbj0gbGVuZ3RoKG0pCglmb3IgKGkgaW4gMTpsZW4pCgl7CgkJcHJpbnQobVtbaV1dKQoJfQp9KSMgeW91ciBjb2RlIGdvZXMgaGVyZQ==