reg exp ungleich (Nachtrag)

[jk]

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  
  
Das suchte ich - Danke