Secret Number

Score: 88.00 (pass)

#!/usr/bin/perl
$_=shift;{print"$_\n";s/(?!^).\B/$&$&/g;s/(.)(.)/$_=$1+$2;s#(.)(.)#$1+$2#e;$_/eg?redo:0}

Score: 90.00 (pass)

#!/usr/bin/perl
$_=shift;S:print"$_\n";s/(?!^).\B/$&$&/g;s/(.)(.)/$_=$1+$2;s#(.)(.)#$1+$2#e;$_/eg?goto S:0

Score: 104.00 (pass)

#!/usr/bin/perl
sub a{print "$_\n";if(/../){s/(?!^).\B/$&$&/g;s/(.)(.)/$_=$1+$2;s#(.)(.)#$1+$2#e;$_/eg;a()}}$_=shift;a()