Secret Number

Score: 70.00 (fail)

#!/usr/bin/perl
print$_=pop,$/;s/.(?=(.))/$x=$&+$1>9?$x-9:$x/ge,s/.$//,exec"$^X $0 $_"

Score: 72.00 (fail)

#!/usr/bin/perl
print$_=pop,$/;s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge,s/.$//,exec"$^X $0 $_"

Score: 73.00 (fail)

#!/usr/bin/perl
print$_=pop,$/;s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge&&s/.$//,exec"$^X $0 $_"

Score: 74.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge&&s/.$//&&exec"$^X $0 $_"

Score: 76.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;s/.(?=(.))/($x=$&+$1)>9?$x-9:$x/ge;s/.$//;exec"$^X $0 $_"if$_

Score: 77.00 (fail)

#!/usr/bin/perl
print$_=pop,$/;/./,$a.=($%=$&+$')>9?$%-9:$%for/(?=(..))/g;exec"$^X $0 $a"if$a

Score: 77.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;/./,$a.=($%=$&+$')>9?$%-9:$%for/(?=(..))/g;exec"$^X $0 $a"if$a

Score: 78.00 (pass)

#!/usr/bin/perl
print$_=pop,$/;/./,$a.=($x=$&+$')>9?$x-9:$x for/(?=(..))/g;exec"$^X $0 $a"if$a

Score: 79.00 (fail)

#!/usr/bin/perl
print$_=pop,v10;/./,$_=$&+$',$a.=$_%9||$_ for(/(?=(..))/g);exec"perl $0 $a"if$a

Score: 79.00 (pass)

#!/usr/bin/perl
print$_=pop,v10;/./,$a.=($x=$&+$')>9?$x-9:$x for/(?=(..))/g;exec"$^X $0 $a"if$a

Score: 82.00 (pass)

#!/usr/bin/perl
print$_=pop,v10;/./,$a.=($x=$&+$')>9?$x-9:$x for(/(?=(..))/g);exec"perl $0 $a"if$a

Score: 103.00 (pass)

#!/usr/bin/perl
split//,$ARGV[0];$=v10;print@_;$b=shift@_;$x.=(($y=$_+$b)>9?$y-9:$y),$b=$_ for@_;exec"perl $0 $x"if$x;