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