Select Code to Download

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'}});