Secret Number

Score: 60.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/(?(?=(..).).|..)/$1+0?$1%9||9:0/eg&&redo}

Score: 61.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s/(?=(..))./$1+0?$1%9||9:0/eg;chop;$_&&redo}

Score: 75.00 (pass)

#!/usr/bin/perl -l
$_=pop;for$-(/./g){print;s/(?

Score: 91.00 (pass)

#!/usr/bin/perl -l
print$_=pop;while($_>9){s/(?

Score: 109.00 (pass)

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