Secret Number

Score: 54.00 (pass)

#!/usr/bin/perl -l
$_=pop;s!.!print,s//$`&&(0..9,1..9)[$&+$`%10]/ge!eg

Score: 57.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s/./$`&&(0..9,1..9)[$&+$`%10]/ge while/./

Score: 65.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s/(.)(?=(.))/(0..9,1..9)[$&+$2]/ge,chop while/d/

Score: 69.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s/(.)(?=(.))/$a=$1+$2and($a%9||9)/ge,chop
while""ne$_

Score: 70.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s/(.)(?=(.))/($a=$1+$2)&&($a%9||9)/ge,chop
while""ne$_

Score: 73.00 (pass)

#!/usr/bin/perl -l
$_=pop;do{print;s/(.)(?=(.))/"$1$2"+0&&("$1$2"%9||9)/ge;chop}while($_)

Score: 76.00 (pass)

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