Secret Number

Score: 63.00 (pass)

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

Score: 65.00 (pass)

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

Score: 66.00 (pass)

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