Multibyte <- "Sungpil_한성필_韓盛弼_Han"
gsub("\\p{Hangul}+", "",Multibyte, perl=TRUE) ## REMOVE ALL KOREAN
gsub("\\p{Han}+", "",Multibyte, perl=TRUE) ## REMOVE ALL CHINESE
TXVsdGlieXRlIDwtICJTdW5ncGlsX+2VnOyEse2VhF/pn5Pnm5vlvLxfSGFuIgpnc3ViKCJcXHB7SGFuZ3VsfSsiLCAiIixNdWx0aWJ5dGUsIHBlcmw9VFJVRSkgIyMgUkVNT1ZFIEFMTCBLT1JFQU4KZ3N1YigiXFxwe0hhbn0rIiwgIiIsTXVsdGlieXRlLCBwZXJsPVRSVUUpICMjIFJFTU9WRSBBTEwgQ0hJTkVTRQo=