Secret Number

Score: 58.00 (pass)

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

Score: 59.00 (pass)

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

Score: 64.00 (pass)

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