Secret Number

Score: 55.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop while print,s/.\B/hex($&+($'&'?'))%15/eg

Score: 56.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop while print,s/.\B/($&..9,1..9)[$'&'?']/eg

Score: 61.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop while print,s/.\B/(0..9,1..9)[$&+chr ord$']/eg

Score: 63.00 (pass)

#!/usr/bin/perl -l
$_=pop;chop while print,s/.B/($s=$&+chr ord$')>9?$s-9:$s/eg

Score: 68.00 (pass)

#!/usr/bin/perl -l
print$_=pop;chop,print while s,.B,($s=$&+chr ord$')>9?$s-9:$s,eg

Score: 85.00 (pass)

#!/usr/bin/perl -l
$_=pop;$d=$1+$2,$n.=$d>9?$d-9:$d,--pos while/(.)(.)/g;print;$_>9&&exec"perl $0 $n"

Score: 93.00 (pass)

#!/usr/bin/perl -l
print$_=pop;while(/../){$n='';$d=$1+$2,$n.=$d>9?$d-9:$d,--pos while /(.)(.)/g;$_=$n;print}

Score: 99.00 (pass)

#!/usr/bin/perl -l
print$_=pop;while(/../){$n='';$n.=chr($1+$2+48),pos()-=1 while /(.)(.)/g;$_=$n;y/:-B/1-9/;print}