perl -pe 's/\b0*(?=\d)//g'