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