mystr <- c("16.142.8",
"52.135.1",
"40.114.4",
"83.068.8",
"83.456.3",
"55.181.5",
"76.870.2",
"96.910.2",
"17.171.9",
"49.617.4",
"38.176.1",
"50.717.7",
"19.919.6")
gsub("\\.(?=[^.]*\\.)", "", mystr, perl=TRUE)
bXlzdHIgPC0gYygiMTYuMTQyLjgiLCAgICAgICAgICAKICAgICAgICI1Mi4xMzUuMSIsICAgICAgICAgCiAgICAgICAiNDAuMTE0LjQiLCAgICAgICAgICAKICAgICAgICI4My4wNjguOCIsICAgICAgICAgCiAgICAgICAiODMuNDU2LjMiLCAgICAgICAgIAogICAgICAgIjU1LjE4MS41IiwgICAgICAgICAKICAgICAgICI3Ni44NzAuMiIsICAgICAgICAgCiAgICAgICAiOTYuOTEwLjIiLCAgICAgICAgIAogICAgICAgIjE3LjE3MS45IiwgICAgICAgICAKICAgICAgICI0OS42MTcuNCIsICAgICAgICAgCiAgICAgICAiMzguMTc2LjEiLCAgICAgICAgIAogICAgICAgIjUwLjcxNy43IiwgICAgICAgICAKICAgICAgICIxOS45MTkuNiIpCmdzdWIoIlxcLig/PVteLl0qXFwuKSIsICIiLCBteXN0ciwgcGVybD1UUlVFKQ==