gsub(pattern = "([a-z.])[A-Z].*", replacement = "\1", x = s)