use Win32::OLE;
 ...
 my $Paragraphs= $Doc->Paragraphs();
 foreach my $para (in $Paragraphs) {
    ...

##</code><code>##

foreach my $para (in $Doc->Paragraphs()) {

##</code><code>##

 foreach my $para (in ($Doc->Paragraphs())) {