Hi, thanks for the scripts
Problem is that when I run them I get:

Can't locate object method "new" via package "Text::Extract::Word" at 
+monks.pl line 11.
[download]

I guess that there was something wrong with the installation or that the module isn't stable- I will try to fix it. The legacy interface works but not very well (some docs just aren't parsed)

# legacy interface
use Text::Extract::Word qw(get_all_text);
my $text = get_all_text("test1.doc");
[download]