Secret Number

Score: 77.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;while(s/(.)(.)/$2/){$s.=$1+$2-($1+$2>9)*9}print`$^X $0 $s`if$s

Score: 78.00 (pass)

#!/usr/bin/perl
print$_=pop,"
";while(s/(.)(.)/$2/){$s.=$1+$2-($1+$2>9)*9}print`$^X $0 $s`if$s

Score: 80.00 (pass)

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

Score: 82.00 (pass)

#!/usr/bin/perl -l
$_=shift;do{print;my$s;while(s/(.)(.)/$2/){$s.=$1+$2-($1+$2>9)*9}$_=$s}until!$_