get_text seems to cut-off the first line, so use get_body(':raw') instead.

#!/usr/bin/perl 

use strict;
use warnings;
use Text::Extract::Word;
use Data::Dumper::Concise;

my $file = '/root/Desktop/test2.doc';
my $extractor = Text::Extract::Word->new($file);
my $string = $extractor->get_body(':raw');
print Dumper($string);
[download]