#!perl -p
s/.(?=1*$)/1-$&/ge