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

#! /usr/bin/perl

use strict;
use warnings;

{
  local $/; # $/ nur für diesen Block setzen
  open(DATEI,"<text.txt") or die "Kann Datei nicht oeffnen: $!\n";
  my $text = <DATEI>;
  close DATEI;
  if($text =~ /Haus/){ # nur eine Abfrage, keine Schleife
    print "'Haus' ist enthalten\n";
  }
}

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

perl -w lalala.pl