use strict;

use Win32::OLE;
use Win32::OLE::Enum;

parseAndScanWord($filename);


sub parseAndScanWord
{
    my ($fileName) = @_;
    
    my $document = Win32::OLE -> GetObject($fileName) or return;
    my $paragraphs = $document->Paragraphs();
    my $enumerate = new Win32::OLE::Enum($paragraphs);
    while(defined(my $paragraph = $enumerate->Next()))
    {
        $text = $paragraph->{Range}->{Text};
    }
}