Secret Number

Score: 68.00 (pass)

#!/usr/bin/perl -l
$_=shift;do{print,s/.(?=(.))/($x=$&+$1)?$x%9||9:0/eg,chop}while$_

Score: 73.00 (pass)

#!/usr/bin/perl -l
$_=shift;print,s/.(?=(.))/($x=$&+$1)?$x%9||9:0/eg,chop while$_>9;print

Score: 93.00 (pass)

#! /usr/bin/perl
$\='
';$_=shift;print,s/.(?=(.))/($x=$&+$1)?$x%9||9:0/eg,chop while$_>9;print

Score: 95.00 (pass)

#! /usr/bin/perl
$_=shift;do{print"$_
";s/.(?=(.))/$x=$&+$1,$x?$x%9||9:0/eg;chop}while$_|y///c>1

Score: 105.00 (pass)

#! /usr/bin/perl
$\='
';$_=shift;do{print,s/.(?=(.))/$x=$&+$1,$x?$x%9||9:0/eg,chop,$_=eval}while$_|y///c>1