Select Code to Download

my $ndn = qr{
    # cannot begin after digit or any differentiator char
...
    # qualify potential main pattern for min/max digits
    (?(?{ $1 =~ tr/0-9// > 15 || $1 =~ tr/0-9// < 9 }) (*FAIL))
    }xms;