$search-> {Text} = $oldtext;
$replace-> {Text} = $newtext;
$search-> Execute({Replace => wdReplaceAll});

##</code><code>##

$search-> {Text} = "\x{0021}";
$replace-> {Text} ="\x{0022}";
$exec_res = $search-> Execute({Replace => wdReplaceAll});
##</code><code>##

$search-> {Text} =  "\x{270F}";
$replace-> {Text} = "\x{2702}";

##</code><code>##

$search-> {Text} = 'U' . "\x{270F}";
$replace-> {Text} ='U' . "\x{2702}";