use strict;
use warnings;
use utf8;
use Win32::OLE;
use Win32::OLE qw(CP_UTF8);
use Win32::OLE::Const 'Microsoft Word';
Win32::OLE->Option(CP => CP_UTF8);

my $word = Win32::OLE->new('Word.Application');
$word->{Visible} = 0;
my $document=$word->Documents->Open('c:/perl/scripts/test.doc');

$word->Selection->HomeKey(wdStory);
$word->Selection->Find->{'Text'}='すごい';
$word->Selection->Find->Replacement->{'Text'}='Awesome';
$word->Selection->Find->Execute({Replace=>wdReplaceAll});
$word->Selection->HighlightColorIndex(wdYellow); # THIS I DONT KNOW
$word->ActiveDocument->Close ;
$word->Quit;