use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $word = Win32::OLE->new('Word.Application');
$word->{Visible} = 1;
my $document=$word->Documents->Open('c:/temp/test.doc');

$word->Selection->HomeKey(wdStory);
$word->Selection->Find->{'Text'}='Some Text';
$word->Selection->Find->Replacement->{'Text'}='Replaced Text';
$word->Selection->Find->Execute(); ### Need help here