list <- c("1010.1-1", "1010.2-1", "1010.3-1", "1030-1", "1040-1", "1060.1-1", "1060.2-1", "1070-1", "1100.1-1", "1100.2-1")
as.numeric(gsub("\\D+", "", list))
bGlzdCA8LSBjKCIxMDEwLjEtMSIsICIxMDEwLjItMSIsICIxMDEwLjMtMSIsICIxMDMwLTEiLCAiMTA0MC0xIiwgIjEwNjAuMS0xIiwgIjEwNjAuMi0xIiwgIjEwNzAtMSIsICIxMTAwLjEtMSIsICIxMTAwLjItMSIpCmFzLm51bWVyaWMoZ3N1YigiXFxEKyIsICIiLCBsaXN0KSk=