#!perl -p
s/./$&.chr$_--+ord$&/eg;s/(.)..(.\1)+/ - $2/g;s/.\K.//g