Select Code to Download

length: 1 digits: 0 quantity: 3
length: 1 digits: 1 quantity: 2
length: 1 digits: 2 quantity: 2
...
length: 1 digits: 5 quantity: 2
length: 1 digits: 9 quantity: 3
length: 2 digits: 30 quantity: 2

#!/usr/bin/perl -w
use strict;
my $line;
...
                }
        }
}