Secret Number

Score: 63.00 (pass)

#!/usr/bin/perl -l
$_=shift;print,s/.(?=(.))/$1+$&-($1+$&>9)*9/ge,chop while/./

Score: 66.00 (pass)

#!/usr/bin/perl -l
$_=shift;print,s/.(?=(.))/$&+$1&&($&.$1-1)%9+1/ge,chop while/./

Score: 68.00 (pass)

#!/usr/bin/perl -l
print$_=shift;chop,print while s/.(?=(.))/$&+$1&&($&.$1-1)%9+1/ge

Score: 69.00 (pass)

#!/usr/bin/perl -l
print$_=shift;chop,print while s/.(?=(.))/$&+$1>9?$&+$1-9:$&+$1/ge

Score: 71.00 (pass)

#!/usr/bin/perl -l
print$_=shift;chop,print while s/(.)(?=(.))/$1+$2>9?$1+$2-9:$1+$2/ge

Score: 73.00 (pass)

#!/usr/bin/perl -l
print$_=shift;s/.$//,print while s/(.)(?=(.))/$1+$2>9?$1+$2-9:$1+$2/ge