#!perl -p
s#[^0]#$\=$/.$_.$\;$&-1#e&&redo