Secret Number

Score: 63.00 (pass)

#!perl -l
$_=pop;print,s*.(?=(.))*$1?1+($&+$1-1)%9:$&*eg,chop
while/./

Score: 65.00 (pass)

#!perl -l
$_=pop;print,s#.(?=(.))#"$&$1&&1+($&$1-1)%9"#eeg,chop
while/./

Score: 68.00 (pass)

#!perl -l
$_=pop;print,s#.(?=(.))#"$&$1"+0&&("$&$1"-1)%9+1#eg,chop while/./

Score: 69.00 (pass)

#!perl -l
$_=pop;print,s#.(?=(.))#"$&$1">0?("$&$1"-1)%9+1:0#eg,chop while/./

Score: 71.00 (pass)

#!perl -l
$_=pop;print,s#.(?=(.))#int(($&+$1)%10+($&+$1)/10)#eg,s/.$//while/./