Secret Number

Score: 63.00 (pass)

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

Score: 64.00 (pass)

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

Score: 69.00 (pass)

#!perl -l
$_=pop;print,s/./$.=$?+$&;$?=$&;$.--&&$.%9+1/eg,/./,$_=$' while/./