Secret Number

Score: 49.00 (pass)

#!/usr/bin/perl -l
$_=pop;s;.;print,s,,$&%9||9x$&&9if/\G../,eg;eg

Score: 50.00 (pass)

#!/usr/bin/perl -l
$_=pop;s;.;print,s,.,$&%9||9x$&&9if/\G../,eg;eg

Score: 52.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s,.,$&%9||9x$&&9if/G../,eg,while/./

Score: 53.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s,.,/G../and$&%9||9x$&&9,eg,while/./

Score: 54.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s#.#/G../and$&%9||$&+0&&9#eg,while/./

Score: 56.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s,.,/G../&&$&^0&&($&+8)%9+1,eg,while/./