Secret Number

Score: 80.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;my$b;$b.=$1+$2>9?$1+$2-9:$1+$2while s/(.)(.)/$2/;($_=$b)&&redo}

Score: 85.00 (pass)

#!/usr/bin/perl -l
sub a{print$_=pop;my$b;$b.=$1+$2>9?$1+$2-9:$1+$2while s/(.)(.)/$2/;$b&&a($b)}a pop

Score: 87.00 (pass)

#!/usr/bin/perl -l
print$_=pop;while(/../){my$b;$b.=$1+$2>9?$1+$2-9:$1+$2while s/(.)(.)/$2/;print$_=$b}

Score: 111.00 (pass)

#!/usr/bin/perl -l
print$a=pop;while($a>9){my$b;while($a=~s/(.)(.)/$2/){$t=$1+$2;$t=~s/(.)(.)/$1+$2/e if$t>9;$b.=$t}print$a=$b}

Score: 144.00 (pass)

#!/usr/bin/perl -l
print$a=pop;while($a>9){@b=split'',$a;my@c;for(0..$#b-1){$t=$b[$_]+$b[$_+1];$t=~s/(.)(.)/$1+$2/e if$t>9;push@c,$t}$a='';map$a.=$_,@c;print$a}