$search-> {Text} = "\x{21F0}";
$replace-> {Text} ="\x{2BF0}";
$exec_res = $search-> Execute({Replace => wdReplaceAll});