Secret Number

Score: 61.00 (pass)

#!perl -l
$_=pop;print,s@.(?=(.))@$&+$1-9*($&+$1>9)@ge,s@.$@@while//

Score: 73.00 (pass)

#!perl
$_=pop;s@.(?=(.))@print$&;$&+$1-9*($&+$1>9)@ge,s@.$@!print$&,$/@e while//

Score: 81.00 (pass)

#!perl -l
@"=split$,,pop;do{print@";$/=shift@"}while@"=map{$;=$/;($;+=$/=$_)-9*($;>9)}@"