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

# this $text will hold all the text of all the word docs
my $text="";

# this is how we start Word from Perl
my $word=Win32::OLE->new("Word.Application");

# for every file in the current directory
foreach my $filename (<*.doc>)
{
    # tell Word to open the file we just found
    my $doc=$word->Documents->Open($filename);

    # get an object representing all the paragraphs in the doc
    my $paragraphs=new Win32::OLE::Enum($doc->Paragraphs());

    # for every paragraph...
    while(defined($paragraph = $paragraphs->Next()))
    {
        # append the paragraph text to $text
        $text.=$paragraph->{Range}->{Text};
    }
}    

foreach my $line (split(/\r\n/,$text))
{
    # this bit DEFINITELY doesn't work!
    if (/some pattern/)
    {
        ..do something..
    }
}
[download]