unless ($string =~ /Peter/){
        print "Kein Peter da!"
}