Help for this page

Select Code to Download

Select or download this

while (<DATA>){
    print "$_" if grep {length $_ == 2} join('', sort split //, $_) =~
+ /((\d)\2+)/g;
...
0014
01511
451411

Select or download this
```
0011
0012
0013
0014
451411
```