Secret Number

Score: 58.00 (pass)

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

Score: 58.00 (pass)

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

Score: 60.00 (pass)

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