Help for this page

Select Code to Download

Select or download this
```
for( map '0'x$_ .. '9'x$_, 4..6 ) {
```

Select or download this

    for my $len ( 4 .. 6 ) {
        my $pat = '0' x $len;
...
            $pat++;
        }
    }