#!/usr/bin/perl -l
sub x{($&+$1)=~/./;$&+$'}for($_=pop;$_;s/.$//){print;s/.(?=(.))/x/eg}/./&&print