x <- c("005", "0AB", "000", "0")
sub("^0+(?!$)", "", x, perl=TRUE)