Secret Number

Score: 55.00 (pass)

#!/usr/bin/perl -l
$%=!print,/..(?{$%.=$&%9||0+$&&&9})^/while$_=$%||pop

Score: 56.00 (pass)

#!/usr/bin/perl -l
$%=!print,/..(??{$%.=$&%9||0+$&&&9})^/while$_=$%||pop

Score: 69.00 (pass)

#!/usr/bin/perl -l
print$_=pop;s#.(?=(.))#$&+$1-9*($&+$1>9)#ge;chop;$_&&exec$^X,$0,$_

Score: 69.00 (pass)

#!/usr/bin/perl -l
print$_=pop;s#.(?=(.))#$&+$1-9*($&+$1>9)#ge;chop;$_&&exec$^X,$0,$_