$selection->Find->ClearFormatting;
$selection->Find->{Text} = "*";
$find_exec_res = $selection->Find->Execute;
$move_res = $selection->MoveRight ( {Unit => wdCharacter, Count => 1} );
$selection->InsertSymbol( { Font=> "Wingdings", CharacterNumber => -4062, Unicode => 1 });

##</code><code>##

$selection->MoveLeft ({Unit => wdCharacter, Count => 9999});
$selection->MoveUp   ({Unit => wdLine, Count => 9999});