Win32::OLE Word-Datei auslesen - manuelle Zeilenubrüche entferne

[ask]

Hallo, hallo,

ich möchte mit Perl gerne ein MS Word-Dokument einlesen,
alle manuellen Zeilenumbrüche gegen ein Leerzeichen ersetzen
und dann den modifizierten Inhalt in eine Textdatei schreiben.

Die Datei auslesen und als Textdatei schreiben bekomme ich hin,
allein auf den Inhalt kann ich nicht "ersetzend" zugreifen.

Mein Script (ohne Ansatz des Ersetzen):

  
use Win32::OLE;  
use Win32::OLE::Const 'Microsoft.Word';  
$Win32::OLE::Warn = 3;  
  
my $file_in  = 'katalog.doc';  
my $file_out  = 'korr.txt';  
  
my $word = Win32::OLE->new('Word.Application','Quit') or die "Word problem: ",Win32::OLE->LastError();  
my $document = $word->Documents->Open($file_in) or die "Word problem: ",Win32::OLE->LastError();  
  
# und hier fehlt's  
  
$document->SaveAs($file_out, wdFormatText);  

Für Vorschläge bin ich dankbar.

Danke und Gruß AS