x <- c("005", "0AB", "000", "0")sub("^0+(?!$)", "", x, perl=TRUE)
Standard input is empty
[1] "5" "AB" "0" "0"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!