Lücken in einem Text durch Daten einer Textdatei ersetzen! Brauche Hilfe! :-)

[Frank Schönmann]

hi!

Diese obrigen Wörter aus der daten.dat sollen dann in den Text in
eingefügt werden, wo die xxxxxx stehen, so das der Text nach
Ausführung des Skript's wie folgt aussieht:

Eigentlich kein Problem mit ein paar regulären Ausdrücken:

=== cut ===
#!/usr/bin/perl

my @words = qw(Tisch Dach Fenster Computer Internet Pullover);
my $text = "Ich stelle mich auf den xxxxxx, dannach geh ich auf's xxxxxx und gucke durch's xxxxxx. Dann gehe ich wieder runter und schalte meinen xxxxxx ein und gehe ins xxxxxx. Weil es mir zu kalt ist ziehe ich mir einen xxxxxx an."

my $i = 0;
$text =~ s/xxxxxx/$words[$i++]/g;
=== cut ===

bye, Frank!