test <- "ThisisAtest"
gsub("(?<=[a-z])(?=[A-Z])", ";", test, perl=T)