Select Code to Download

use strict; use warnings;
use Win32::OLE::Const 'Microsoft Word';
...

$Word->ActiveDocument->Close ;
$Word->Quit;

while ( defined (my $paragraph = $enumerate->Next()) ) {

...
        $font->{Bold} = 1 if $word->{Text} =~ /Perl/;
    }
}