'in' do not always work good...
But you can try work at paragraph level, so

my @paras = in $doc->Paragraphs;# or so
[download]

BTW even $doc->Words->Count will traverse entire document content... so be careful!

Also I would suggest you to slurp entire document content... but then it will be difficult to get access to word in the middle... so this may be not a good advice...