Input <- "I ES P E ES P 010 000 000 000 000 000 001 001 000 000 IESP 000 000"
gsub("(?<=[A-Z])\\s+(?=[A-Z])", "", Input, perl=TRUE, ignore.case = TRUE)
SW5wdXQgPC0gIkkgRVMgUCBFIEVTIFAgMDEwIDAwMCAwMDAgMDAwIDAwMCAwMDAgMDAxIDAwMSAwMDAgMDAwIElFU1AgMDAwIDAwMCIKZ3N1YigiKD88PVtBLVpdKVxccysoPz1bQS1aXSkiLCAiIiwgSW5wdXQsIHBlcmw9VFJVRSwgaWdub3JlLmNhc2UgPSBUUlVFKQ==