Secret Number

Score: 57.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s!.!(($&+ord$')%29+1)%10!eg,chop while/./

Score: 60.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s!.!(($&+ord$')%29+1)%10!eg,chop while''ne$_

Score: 62.00 (pass)

#!/usr/bin/perl -l
$_=pop;print|s!.!chr$&+ord$'!eg|y!:-B!1-9!|chop while''ne$_

Score: 62.00 (pass)

#!/usr/bin/perl -l
$_=pop;print,s!.!(($&-1+ord$')%57+1)%48!eg,chop while''ne$_

Score: 65.00 (pass)

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

Score: 65.00 (pass)

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

Score: 71.00 (pass)

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

Score: 75.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;while(s/./$v=$&+chr ord$';$v>9?$v-9:$v/eg){chop;print if$_}

Score: 76.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;s/./$v=$&+chr ord$';$v>9?$v-9:$v/eg&chop;exec"$^X $0 $_"if$_