Secret Number

Score: 58.00 (pass)

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

Score: 61.00 (pass)

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

Score: 63.00 (pass)

#!perl -l
$_=pop;print,s/(.)(?=(.))/chop($a=$1+$2)+$a/eg,chop while/./