$search_res = $search-> {Text} = "\x{0021}";
$replace-> {Text} =  "\x{0022}";
$exec_res = $search-> Execute({Replace => wdReplaceAll});
$selection->InsertSymbol( { Font=> "Wingdings", CharacterNumber => -4063, Unicode => 1 });