#!perl -p
s;\B0*;$&4$&6$&4$&