my $regex = qr(Haus \d);
if ($s =~ $regex) { 
}