Select Code to Download

<doc id="some_id_string" title="title string" date="date_string" ...>
<text>
...
</text>
</doc>
...

create table content_index (
   search_term  varchar(50),
...
   in_body      char(1),
   how_many     integer
)

#!/usr/bin/perl

...
        print join( ",", $tkn, $id, "Y,N", $tknhist{ttl}{$tkn} ), "\n"
+;
    }
}

cut -f1 -d, table-data | sort | uniq -c | sort -nr > word.doc-freqs