#!perl -p
s/./-$&%10/ge