Secret Number

Score: 63.00 (pass)

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

Score: 67.00 (pass)

#!/usr/bin/perl -l
print$_=pop;print while$_=join'',map$_+0&&1+($_-1)\%9,/(?=(..))/g

Score: 71.00 (pass)

#!/usr/bin/perl -l
$_=pop;while(print,$_>9){$_=join'',map$_+0?1+($_-1)%9:0,/(?=(..))/g}

Score: 72.00 (pass)

#!/usr/bin/perl -l
$_=pop;while(print,$_>9){$_=join'',map{$_+0?1+($_-1)%9:0}/(?=(..))/g}

Score: 83.00 (pass)

#!/usr/bin/perl -l
$_=pop;while(print,$_>9){$_=join'',map{s/(.)(.)/$1+$2/e for$_,$_;$_}/(?=(..))/g}