The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/bin/bash
#
# Copyright (C) 2004 Jörg Tiedemann  <joerg@stp.ling.uu.se>
#
# $Id$

grep '<wordLink ' |\
perl -e 'if ($]>=5.008){binmode(STDIN, ":encoding(utf-8)");};
         while (<>){if (/lexPair=\"([^\"]*)\"/){print "$1\n";}}' |\
tr ';' "\t" |\
sort |\
uniq -c |\
sort -rn