Select Code to Download

        my @matches = ($seq{$key} =~ /$string/ig);
        #print "@matches\n";
        $result{$string} = scalar(@matches);