nlist <- c(
"Lil' SlimLil' Slim feat. PxMxWxPxMxWx Where Your Ward At!!",               
"I Like It (Mannie Fresh Style)I Like It (Mannie Fresh Style)Ms. Tee",
"Bella VistaBella Vista Mister Wong",
"Tom WareTom WareChina Town",                                        
"Race 'N RhythmRace 'N Rhythm Teenage Girls",                                    
"Ronald MarquisseRonald MarquisseElectro Link 7",
"PleasurePleasure Thoughts Of Old Flames",
"OM, OM, Dom Um RomaoDom Um Romao Chipero" 
)
artist <- sub("^(?:.*?\\b(.+?)\\1(?=\\b|\\p{Lu}))*\\s*(.*)", "\\2", nlist, perl=TRUE)
rx <- "^(?:.*?\\b(.+?)\\1(?=\\b|\\p{Lu}))*"
titles <- regmatches(nlist, regexpr(rx, nlist, perl=TRUE))
titles <- gsub("(.+?)\\1", "\\1", titles, perl=TRUE)
data.frame(artist, titles)