TestSequence <- "SCDKSFNRGECSCDKSFNRGECSCDKSFNRGEC"
strsplit(TestSequence, "\\B(?=D)", perl = TRUE)
# => [[1]]
# => [1] "SC" "DKSFNRGECSC" "DKSFNRGECSC" "DKSFNRGEC"
strsplit(TestSequence, "(?<!^)(?=D)", perl = TRUE)
# => [[1]]
# => [1] "SC" "DKSFNRGECSC" "DKSFNRGECSC" "DKSFNRGEC"
VGVzdFNlcXVlbmNlIDwtICJTQ0RLU0ZOUkdFQ1NDREtTRk5SR0VDU0NES1NGTlJHRUMiCnN0cnNwbGl0KFRlc3RTZXF1ZW5jZSwgIlxcQig/PUQpIiwgcGVybCA9IFRSVUUpCiMgPT4gW1sxXV0KIyA9PiBbMV0gIlNDIiAgICAgICAgICAiREtTRk5SR0VDU0MiICJES1NGTlJHRUNTQyIgIkRLU0ZOUkdFQyIgIAoKc3Ryc3BsaXQoVGVzdFNlcXVlbmNlLCAiKD88IV4pKD89RCkiLCBwZXJsID0gVFJVRSkKIyA9PiBbWzFdXQojID0+IFsxXSAiU0MiICAgICAgICAgICJES1NGTlJHRUNTQyIgIkRLU0ZOUkdFQ1NDIiAiREtTRk5SR0VDIiAgCgo=