Secret Number

Score: 59.00 (pass)

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

Score: 62.00 (pass)

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

Score: 63.00 (pass)

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