Secret Number

Score: 66.00 (pass)

#!/usr/bin/perl
$_=pop().$/;print,s@(.)(?=(.))|.@$1+$2?($1+$2-1)%9+1:$1@egwhile/./

Score: 67.00 (pass)

#!/usr/bin/perl
$_=pop().'
';print,s@(.)(?=(.))|.@$1+$2?($1+$2-1)%9+1:$1@egwhile/./

Score: 72.00 (pass)

#!/usr/bin/perl
$_=$ARGV[0]."\n";print,s@(.)(?=(.))|.@$1+$2?($1+$2-1)%9+1:$1@eg while/./