Secret Number

Score: 56.00 (pass)

#!/usr/bin/perl -l
$_=pop;print|s/(?=(..))?./-$+?$+\%9||9:0if$+/egwhile//

Score: 57.00 (fail)

#!/usr/bin/perl -l
$_=pop;print|s/.(?<=(..))?/-$+?$+%9||9:0if$`/egwhile$_

Score: 57.00 (pass)

#!/usr/bin/perl -l
$_=pop;print|s/(?=(..))?./-$+?$+\%9||9:0if$+/egwhile/./

Score: 58.00 (pass)

#!/usr/bin/perl -l
$_=pop;print|s/.(?<=(..))?/-$+?$+\%9||9:0if$`/egwhile/./

Score: 59.00 (pass)

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

Score: 60.00 (pass)

#!/usr/bin/perl -l
$_=pop;print|s//$,=$&+$";$"=$&;$,-9*($,>9)if$`/egwhile/./

Score: 61.00 (pass)

#!/usr/bin/perl -l
$_=pop;print|s/.(?=(.))/$&+$1-9*($&+$1>9)/eg|chop while/./

Score: 61.00 (pass)

#!/usr/bin/perl -l
$_=pop;print|s/./$,=$&+$";$"=$&;$,-9*($,>9)if$`/egwhile/./

Score: 63.00 (pass)

#!/usr/bin/perl -l
$_=pop;print|s/(.)(?=(.))/$1+$2-9*($1+$2>9)/eg|chop while/./

Score: 65.00 (fail)

#!/usr/bin/perl -l
$_=pop;while($_){print;s/(.)(?=(.))/$1+$2-9*($1+$2>9)/eg;chop}