Select Code to Download

use strict;
use warnings;
...
        join (', ', map {"$_->[0] and $_->[1]"} @{$matches{$match}}),
        "\n";
}

.C....... pattern between 1 and 3
.C.G....C pattern between 2 and 3
AC....T.. pattern between 1 and 2