Select Code to Download

use strict;
use Win32::OLE;
...
             replacewith=>"<bold>^&</bold>", matchwildcards=>'True', 
            replace=>wdReplaceAll});

use strict;
use Win32::OLE;
...

$Selection->Find->Execute( {Replace=>wdReplaceAll} );