text <- "This is some text::stuff. Look, there's some::more. And here::is some more."
m <- gregexpr("[[:alnum:]]+(?=::)", text, perl=TRUE)
unlist(regmatches(text, m))