Help for this page

Select Code to Download

Select or download this
```
$ cat file.txt|sort|uniq
```

Select or download this

my $l = 0;
map     { defined $_ and print "$_\n" }
...
        sort { $a->[1] <=> $b->[1] }
        map { [s/[\D\n]//g, $_] }
        <>;