x <- c("aaa","aaaa","abababcdcd","cdababcdcd")
gsub("(.{2,})\\1+","\\1",x)
gsub("(.{2,})\\1+","\\1",x, perl=TRUE)