reg exp ungleich (Nachtrag)

[Siechfred]

ich suche einen regexp für ungleich string (ungleich Zeichenklasse [^A-Z] hab ich gefunden).
$string !~ /hund/;

Nachtrag: Lookarounds helfen dir weiter, wenn du nur einen Teilstring negieren willst:

my $str = 'ein schwarzer hund';  
print 'ein Hund, aber nicht schwarz' if $str =~ /^ein\s(?!schwarzer)\shund$/;

Siechfred