foostring <- c("First test *** no asterisks at the end",
"Second test *** asterisks in the middle *** something different",
"Third test *** more than one asterisk *** something different *** second asterisk ***",
"Fourth test *** asterisks followed by a special character ***_something different")
gsub("\\*{3}.*?(?:\\*{3}|$)", "", foostring)
Zm9vc3RyaW5nIDwtIGMoIkZpcnN0IHRlc3QgKioqIG5vIGFzdGVyaXNrcyBhdCB0aGUgZW5kIiwgCiAgICAgICAgICAgICAgICJTZWNvbmQgdGVzdCAqKiogYXN0ZXJpc2tzIGluIHRoZSBtaWRkbGUgKioqIHNvbWV0aGluZyBkaWZmZXJlbnQiLAogICAgICAgICAgICAgICAiVGhpcmQgdGVzdCAqKiogbW9yZSB0aGFuIG9uZSBhc3RlcmlzayAqKiogc29tZXRoaW5nIGRpZmZlcmVudCAqKiogc2Vjb25kIGFzdGVyaXNrICoqKiIsCiAgICAgICAgICAgICAgICJGb3VydGggdGVzdCAqKiogYXN0ZXJpc2tzIGZvbGxvd2VkIGJ5IGEgc3BlY2lhbCBjaGFyYWN0ZXIgKioqX3NvbWV0aGluZyBkaWZmZXJlbnQiKQoKZ3N1YigiXFwqezN9Lio/KD86XFwqezN9fCQpIiwgIiIsICBmb29zdHJpbmcpCg==