$0=gensub(/0*/,"&4&6&4&",2)