if ($string !~ m/[1-8pPbBnNrRqQkK]+/) {print "Fehler";}