Help for this page

Select Code to Download


  1. or download this
    >perl -nle
"/(\w*)/; $i{$1}++; print qq{$. $_} for keys %i;" words2.txt
...
9 baz
9 qux
9 foo
  2. or download this
    >perl -wMstrict -lne
"/(\w+)/;  $::i{$1}++;
...
baz 2
qux 2
foo 3