open(DATEI,"text.txt")

[Elke]

Hi Matti,
hier noch mal das ganze.
 #!/usr/bin/perl-w

use strict;
open(DATEI,"text.txt")
or die"Datei kann nicht ge\x94ffnet werden weil:$!\n";
my $text;
undef$/;$text=<DATEI>;
while($text=~m/Haus/g)
{
      print"Das Wort Haus wurde gefunden.\n";
}
close(DATEI);

Alle Dateien liegen im gleichen Ordner.
Fehlermeldung ohne Zeilennummer.
Danke Gruß Elke