Secret Number

Score: 54.00 (pass)

#!/usr/bin/perl
print$_=pop,$/,/..(?{$".=$&%9||9*!!-$&})\b/&&`$ $0$"`

Score: 56.00 (pass)

#!/usr/bin/perl
print$_=pop,$/,/..(?{$".=$&\%9||9*!!-$&})\b/&&`perl $0$"`

Score: 60.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;/..(?{$,.=$&%9||9*!!-$&})/&&exec perl,$0,$,

Score: 63.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;/..(?{$,.=$&%9||9*!!-$&})/;$,&&exec perl,$0,$,

Score: 71.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;/(.)(.)(?{$,.=$1+$2-9*($1+$2>9)})/;$,&&exec perl,$0,$,

Score: 72.00 (fail)

#!/usr/bin/perl
print$_=pop,$/;/(.)(.)(?{$,.=$1+$2-9*($1+$2>9)})/;$,&&exec"perl $0 $,"

Score: 75.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;/(.)(.)(?{$,.=($1+$2>9)+($1+$2)%10})/;$,&&exec"perl $0 $,"

Score: 77.00 (pass)

#!/usr/bin/perl
sub _{print$_=pop,$/;$~='';/(.)(.)(?{$~.=($1+$2>9)+($1+$2)%10})/;$~&&_($~)}_ pop

Score: 77.00 (pass)

#!/usr/bin/perl
sub _{print$_=pop,$/;$~='';/(.)(.)(?{$~.=($1+$2>9)+($1+$2)%10})/;$~&&_($~)}_ pop