Secret Number

Score: 70.00 (fail)

#!/usr/bin/perl
$_="@ARGV";@_=(0..9,1..9);chop,print"$_\n"while s/.(?=(.))/$_[$&+$+]/g

Score: 82.00 (pass)

#!/usr/bin/perl
$_="@ARGV";@_=(0..9,1..9);print"$_\n";chop,print"$_\n"while s/.(?=(.))/$_[$&+$+]/g