电话号码前的几个零去除

各位大神，我想把这种电话号码前的“0”去掉，应该怎么编写程序？

tel=substr(tel,indexc(tel,"123456789"));

tel=put(input(tel, 15.), 15.);

tel_=prxchange("s/(0+)?(\d+)/\2/",1,tel);