Secret Number

Score: 118.00 (pass)

#!/usr/bin/perl -l
for(;;){print@n=pop=~/./g;@n==1&&exit;while(@n>1){$_=$n[0]+$n[1];s/(.)(.)/$1+$2/e;$n.=$_;shift@n}$ARGV[0]=$n;$n=""}

Score: 118.00 (pass)

#!/usr/bin/perl -l
L:print@n=pop=~/./g;@n==1&&exit;while(@n>1){$_=$n[0]+$n[1];s/(.)(.)/$1+$2/e;$n.=$_;shift@n}$ARGV[0]=$n;$n="";goto L