use Text::Extract::Word;
my $file = Text::Extract::Word->new("try.doc");
my $raw = $file->get_text(':raw');
print "$raw\n";