Secret Number

Score: 81.00 (pass)

#!/usr/bin/perl -l
print$_=pop;map{$,.=$x+$_-9*($x+$_>9)if ord$x;$x=$_}/./g;exec perl,$0,$,if/../

Score: 81.00 (pass)

#!/usr/bin/perl -l
print$_=pop;map{$,.=$x+$_-9*($x+$_>9)if ord$x;$x=$_}/./g;exec perl,$0,$,if/../

Score: 85.00 (pass)

#!/usr/bin/perl -l
print$_=pop;s/.//;$y=$&;$x.=$y+$_-9*($y+$_>9),$y=$_ for/./g;exec'perl',$0,$x if/./

Score: 95.00 (pass)

#!/usr/bin/perl -l
$_=pop;print;if(/../){s/.//;$y=$&;for(/./g){$x.=$y+($_>9-$y?$_-9:$_);$y=$_}exec'perl',$0,$x}