Select Code to Download

use warnings;
use strict;
...
my $word = CreateObject OLE "Word.Application";
$word -> {Visible} = 1;
my $document = $word -> Documents -> Open("C:/file_to_open.doc");

my $text = $document -> {Content} -> {Text};