gsub("\\pL\\K", ".", "adskhfks", perl = TRUE)
# [1] "a.ds.kh.fk.s"
gsub("(?<=\\p{L})", ".", "adskhfks", perl = TRUE)
# [1] "a.d.s.k.h.f.k.s."
gsub("(\\pL)", "\\1.", "adskhfks", perl = TRUE)
# [1] "a.d.s.k.h.f.k.s."
Z3N1YigiXFxwTFxcSyIsICIuIiwgImFkc2toZmtzIiwgcGVybCA9IFRSVUUpCiMgWzFdICJhLmRzLmtoLmZrLnMiCmdzdWIoIig/PD1cXHB7TH0pIiwgIi4iLCAiYWRza2hma3MiLCBwZXJsID0gVFJVRSkKIyBbMV0gImEuZC5zLmsuaC5mLmsucy4iCmdzdWIoIihcXHBMKSIsICJcXDEuIiwgImFkc2toZmtzIiwgcGVybCA9IFRSVUUpCiMgWzFdICJhLmQucy5rLmguZi5rLnMuIg==