Secret Number

Score: 53.00 (pass)

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

Score: 54.00 (pass)

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

Score: 56.00 (pass)

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

Score: 60.00 (pass)

#!/usr/bin/perl -l
$_=pop;s;;$==$-+$&,$-=$&,$=+chop$=;eg,s,,,while/./&&print

Score: 63.00 (pass)

#!/usr/bin/perl -l
$_=pop;s/./$%=$p+$&,$p=$&,$%+=chop$%/eg,s/.//while/./&&print

Score: 64.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s;.;($=.($`%10+$&)+1)%($=.1);ge;s;;;;m&&&&redo}

Score: 65.00 (pass)

#!/usr/bin/perl -l
$_=pop;{print;s;.;($=.($`%10+$&)+1)%($=.1);ge;s&&&&&m&&&&redo}

Score: 88.00 (pass)

#!/usr/bin/perl -l
sub lolli{$_=pop;/./&&(print,s,,($_=$`%10+$&)+chop,egg,s,,,,eat,lolli($_))} lolli pop

Score: 779.00 (pass)

#!/usr/bin/perl
''=~('(?{'.('`'|'%').('['^'-').('`'|'!').('`'|',').'"\$:='.('['^'+').('`'|'/').('['^'+').';'.('`'|'$').('`'|'/').'\{'.('['^'+').('['^')').('`'|')').('`'|'.').('['^'/').'\$:.\$/;\@\}=();'.('`'|'&').('`'|'/').('['^')').'\$%(\$[..-'.('^'^('`'|',')).'+'.('`'|',').('`'|'%').('`'|'.').('`'|"'").('['^'/').('`'|'(').'\$:)\{'.('['^'+').('['^'.').('['^'(').('`'|'(').'\@\},'.('['^'(').('['^'.').('`'|'"').('['^'(').('['^'/').('['^')').'\$:,\$%,'.('^'^('`'|',')).'\}\$*.=((\$^='.('`'|'#').('`'|'(').('`'|'/').('['^'+').'()+\$_)>'.(';'&'=').'?'.('`'|'#').('`'|'(').('`'|'/').('['^'+').'(\$^)+\$^:\$^)'.('`'|'&').('`'|'/').('['^')').'\@\};\$:=\$*;\$*=\"\"\}'.('['^',').('`'|'(').('`'|')').('`'|',').('`'|'%').'\$:'.('`'|'.').('`'|'%').'\"\"'.('!'^'+').'"})')