RegExp: alles außer die Zeile beginnt mit einem best. String?

[KurtZ]

Sei gelobt, : )

genau so muss man es machen wenns wartbar sein soll:

print 'ok' unless (index $str, 'Der Baum') == 0;

oder wenn man RegEx will:

  
while (<DATA>) {  
 print unless /^Der Bau/;  
}  
  
__DATA__  
Der Baum ist grün.  
Die Welt ist klein.  
Der Ball ist rund.  
Das Haus hat ein Dach.  
Ein anderer Zeilenanfang.  
Noch ein anderer Zeilenanfang.  

die index-methode dürfte schneller laufen, ich begreife mittlerweile aber RegExe besser und ziehe sie vor, auch wg der Erweitertbarkeit!

Grüße
 Kurt