a <- c("I need only <5 white-spaces removed")
# c("Iwant", "only", "<5", "white-spacesremoved")
strsplit(gsub("(?<=\\S)\\s{1,4}(?=\\S)", "", a, perl=TRUE), "\\s+")
YSA8LSBjKCJJIG5lZWQgICAgICAgICAgICAgb25seSAgICAgICAgICAgICAgICA8NSAgICAgICAgICAgICAgICAgICAgICAgICB3aGl0ZS1zcGFjZXMgICByZW1vdmVkIikKIyBjKCJJd2FudCIsICJvbmx5IiwgIjw1IiwgIndoaXRlLXNwYWNlc3JlbW92ZWQiKQpzdHJzcGxpdChnc3ViKCIoPzw9XFxTKVxcc3sxLDR9KD89XFxTKSIsICIiLCBhLCBwZXJsPVRSVUUpLCAiXFxzKyIp