#!/usr/bin/perl -l
$_=pop;do{print,s[.(?=(.))][($&+$1)=~/./;$&+$']ge,s/.$//}while$_