Secret Number

Score: 57.00 (pass)

#!perl -l
$_=pop;s/..(?{$%=$&})$|./$%%9||$%&&9/gewhile/../&print

Score: 58.00 (pass)

#!perl -l
$_=pop;s/..(?{$%=$&})$|./$%%9||$%&&9/gewhile print,/../

Score: 59.00 (fail)

#!perl -l
$_=pop;s/.(.(?{$%=$&})$|)/$%%9||$%&&9/gewhile print,/../

Score: 61.00 (pass)

#!perl -l
$_=pop;{print;s/.(?=(.))/$&+$1-($&+$1>9&&9)/ge&&chop^redo}

Score: 63.00 (pass)

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

Score: 64.00 (pass)

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

Score: 64.00 (pass)

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

Score: 64.00 (pass)

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

Score: 64.00 (pass)

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

Score: 64.00 (pass)

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

Score: 65.00 (pass)

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

Score: 69.00 (pass)

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