#!perl -pl
/1[12]0?[^0]/||s/../$&+0/ge