Select Code to Download

if (join('','a'..'m') =~ qr/$sv/ && $sv =~/^[a-m]{5}$/){
    print "Matched\n";
}

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