Secret Number

Score: 58.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s/./$`&&($`+$&)%10+($`%10+$&>9)/egwhile~$_

Score: 59.00 (fail)

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

Score: 60.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/./$`&&($==$`%10+$&)%10+($=>9)/eg>1&&redo}

Score: 64.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/.(?=(.))/($==$&+$1)%10+($=>9)/eg<

Score: 65.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/.(?=(.))/$n=$&+$1;$n%10+($n>9)/eg<