test_string <- "we need a test for Andrew Smith or other names like Samuel L Jackson, but we Don't Want Weird Instances Where more stuff is capitalized, but we do want where the entire name is capitalized, like DEREK JETER or MIKE NELSON TROUT"
block <- "\\b\\p{Lu}\\p{L}*(?:\\s+\\p{Lu}\\p{L}*)"
regex <- paste0("(*UCP)", block, "{3,}\\b(*SKIP)(*F)|", block, "{1,2}\\b")
##regex <- "(*UCP)\b\p{Lu}\p{L}*(?:\s+\p{Lu}\p{L}*){3,}\b(*SKIP)(*F)|\b\p{Lu}\p{L}*(?:\s+\p{Lu}\p{L}*){1,2}\b"
regmatches(test_string, gregexpr(regex, test_string, perl=TRUE))
 

dGVzdF9zdHJpbmcgPC0gIndlIG5lZWQgYSB0ZXN0IGZvciBBbmRyZXcgU21pdGggb3Igb3RoZXIgbmFtZXMgbGlrZSBTYW11ZWwgTCBKYWNrc29uLCBidXQgd2UgRG9uJ3QgV2FudCBXZWlyZCBJbnN0YW5jZXMgV2hlcmUgbW9yZSBzdHVmZiBpcyBjYXBpdGFsaXplZCwgYnV0IHdlIGRvIHdhbnQgd2hlcmUgdGhlIGVudGlyZSBuYW1lIGlzIGNhcGl0YWxpemVkLCBsaWtlIERFUkVLIEpFVEVSIG9yIE1JS0UgTkVMU09OIFRST1VUIgpibG9jayA8LSAiXFxiXFxwe0x1fVxccHtMfSooPzpcXHMrXFxwe0x1fVxccHtMfSopIgpyZWdleCA8LSBwYXN0ZTAoIigqVUNQKSIsIGJsb2NrLCAiezMsfVxcYigqU0tJUCkoKkYpfCIsIGJsb2NrLCAiezEsMn1cXGIiKQojI3JlZ2V4IDwtICIoKlVDUClcYlxwe0x1fVxwe0x9Kig/OlxzK1xwe0x1fVxwe0x9Kil7Myx9XGIoKlNLSVApKCpGKXxcYlxwe0x1fVxwe0x9Kig/OlxzK1xwe0x1fVxwe0x9Kil7MSwyfVxiIgpyZWdtYXRjaGVzKHRlc3Rfc3RyaW5nLCBncmVnZXhwcihyZWdleCwgdGVzdF9zdHJpbmcsIHBlcmw9VFJVRSkpCg==