the.string <- "ABCDE982y987r0jhABCdioy2093uiwhf"
the.substrings <- c("ABC", "DEF", "GHI", "987", "ABCDE")
regmatches(the.string, gregexpr(paste(the.substrings, collapse="|"), the.string))