if ($string !~ /\A[a-zA-Z0-9]+\z/) { print "Fehler!" }