Secret Number

Score: 64.00 (pass)

#!/usr/bin/perl -l
$_=pop;s/\G(?=(..))./$1%9||$1*1&&9/eg,chop while''ne$_&&print

Score: 65.00 (pass)

#!/usr/bin/perl -l
$_=pop;print(),s/G(?=(..))./$1%9||$1*1&&9/eg,chop while''ne$_

Score: 73.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;my$r;$r.=$+%9||$+*1&&9while/(?=(..))./g;$_=$r;redo if$_}

Score: 78.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;my$r;pos=1+$-[0],$r.=$&%9||$&*1&&9while/../g;$_=$r;redo if$_}

Score: 97.00 (pass)

#!/usr/bin/perl
$_=shift;do{print"$_\n";split'';$_=join'',map{$_=$_[$_]+$_[$_+1];$_-9*int$_/10}0..$#_-1}while$#_;