Secret Number

Score: 53.00 (fail)

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

Score: 55.00 (fail)

#!/usr/bin/perl -l
$_=pop;{print;s;(?=(..)).;$+%9||$&&&9;ge&&chop|redo}

Score: 55.00 (pass)

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

Score: 55.00 (pass)

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

Score: 63.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/.(?=(.))/($:=$&+$+)>9?$:-9:$:/ge&&chop|redo}

Score: 64.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/.(?=(.))/$:=$&+$+;$:>9?$:-9:$:/ge&&chop|redo}

Score: 67.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/.(?=(.))/$:=$&+$+-0;$:>9?$:-9:$:/ge&&chop|redo}