1: $str = "Dein Haus, dein Boot, \nmein Haus,\nmein Boot,\nmein Garten,\nmeines Nachbarn Zaun.\nUnd ein anderer Zaun, der hier nix zu suchen hat.";
2: 
3: if ( $str =~ m/(Haus.+?Garten.+?Zaun.)/s ) {
4: print "ja: $1\n";
5: }