Secret Number

Score: 61.00 (fail)

#!/usr/local/bin/perl -l
$_=pop;print,s!.!$_=$&-48+ord$',$_-9*/../ if$'!eg while/./

Score: 62.00 (pass)

#!/usr/local/bin/perl -l
$_=pop;print,s!.!$_=$&+chr ord$',$_-9*/../!eg,chop while/./