#!/usr/bin/perl -l
$_=pop;1while$_>9&print&&s/.(?=(.))?/$+[1]?$&?($&+$1)%9||9:$1:''/eg