use Win32::OLE;
my $word=Win32::OLE->new('word.application');
my $doc=$word->Documents->Open('C:\foo\bar.doc');
my $text=$doc->{Text};
#
$text=~s/\r/\n/g;

##</code><code>##

perl -MWin32::OLE -d -e 42