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