open(DATEI,"text.txt")

[Elke]

Der Interpret liest die Datei nicht ein, die Dateien liegen im gleichen Verzeichnis.
Was mache ich falsch??
Der Code im Anhang
Danke

-------------------------------------------------------------------------------------------------------------------
#!/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);