use Win32::OLE::Const 'Microsoft Word';
$filename = "c:\\work\\test.doc";
$word = Win32::OLE->new('Word.Application', 'Quit');
$doc = $word->Documents->Open($filename) or die "Can't open: $!\n";
for(my $i = 1; $i <= $doc->Words->Count; $i++) {
  if($doc->Words->Item($i)->HighlightColorIndex > 0)
  {
     $page = $doc->Words->Item($i)->Application->Selection               ->Information(wdActiveEndPageNumber);     
     print "$page\n";
  }
}