Secret Number

Score: 57.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s/(?=(..)?)./$1%9or$1&&$1+0&&9/gewhile/./

Score: 57.00 (pass)

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