#!perl -p
s/./2+ord(reverse$`)-ord$'&&$&/ge;y/0/-/s