sub match_range {
    my ($string, $start, $end, $length) = @_;
    if (join('',$start .. $end) !~ qr/$string/) { return 0; }
    if ($string !~ /^[${start}-${end}]{$length}$/) { return 0; }
    return 1;
}