Secret Number

Score: 60.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s/(?=(..))?./$1&&$1+0&&($1%9||9)/egwhile$_.0

Score: 63.00 (pass)

#!/usr/bin/perl
do{print$_||=pop,$/;s/(?=(..))?./$1&&$1+0&&($1%9||9)/eg}while$_

Score: 69.00 (pass)

#!/usr/bin/perl
$_=pop;do{print$_,$/;s/(.)(?=(.))/($1+$2)%9||($1?9:0)/eg;chop}while$_