perl -e '$_="000abc";s/^0*//;print'