Help for this page
use OLE; use Win32::OLE::Const 'Microsoft Word'; ... $word->Selection->Find->{'Style'}='Normal'; $word->Selection->Find->Replacement->{'Style'}='Title'; $word->Selection->Find->Execute({Replace=>$const->{'wdReplaceAll'}});