for my $w ($paragraph->{Range}->Words()){
   next unless $w->Text() =~/perl/i;
   $w->Font->{Bold} = 1;
}