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