Secret Number

Score: 68.00 (pass)

#!/usr/bin/perl -l
map{print@b=@a;shift@a;map{$_-=9if($_+=shift@b)>9}@a}@a=pop=~/./g

Score: 68.00 (pass)

#!/usr/bin/perl -l
map{print@_=@.;shift@.;map{$_-=9if($_+=shift@_)>9}@.}@.=pop=~/./g

Score: 79.00 (fail)

#!/usr/bin/perl -l
print$_=pop;/(.)(.)(?{$a.=($b=$1+$2)>9?$b-=9:$b})(?=A)/;system$0,$a if''ne$a

Score: 83.00 (pass)

#!/usr/bin/perl -l
for($_=pop;($a='')ne$_;$_=$a){print;/(.)(.)(?{$a.=($b=$1+$2)>9?$b-=9:$b})(?=A)/}

Score: 83.00 (pass)

#!/usr/bin/perl -l
print$_=pop;/(.)(.)(?{$a.=($b=$1+$2)>9?$b-=9:$b})(?=A)/;system$^X,$0,$a if''ne$a

Score: 86.00 (pass)

#!/usr/bin/perl -l
print$_=pop;/(.)(.)(?{$a.=($b=$1+$2)>9?$b-=9:$b})(?=A)/;system"perl",$0,$a if''ne$a