Here's the bit of code you may need to include in your code to use the snippet I posted...

sub readWordDoc
{
   my $wordContent;
   my $wordTitle;
   my $wordProperties;
   ($wordTitle, $wordProperties, $wordContent) = readWord::readActiveD
+oc();
if ( (defined $wordTitle) and (defined $wordProperties) and (defined $
+wordContent) )
   {
      my $content="";
      foreach my $palabre (in $wordContent->Words) # retrieves every s
+ingle word and adds it to content
      { 
         $content.= "\n".lc($palabre->{Text}); 
      }
      foreach my $prop (in $wordProperties) # prints out every single 
+property
      {
         print "\n".$prop->name.":".$prop->Value;         
      }
   }
}
[download]

Heureux qui, comme Ulysse, a fait un beau voyage
Ou comme celui-là qui conquit la Toison,
Et puis est retourné plein d'usage et raison,
Vivre entre ses parents le reste de son âge!

J. du Bellay, poëte angevin