Select Code to Download

sub score {
    my ($x, $y) = @_;
...
    index($y, $_)+1 && $c++ for split //, $x;
    return $c;
}