#!/usr/bin/perl -l
for(print$_=pop;s#.(?=(.))#$&+$1-9*($&+$1>9)#ge;print){chop}