#!perl -p
s#1\K0*#$&4$&6$&4$&#