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