Select Code to Download

sub score
{
...

    @{[$x =~ /[$y]/g]};
}

sub score
{
...

    $cnt1 < $cnt2 ? $cnt1 : $cnt2;
}