unless ($name =~ m/^\w/) {
print "Falsche Eingaben!";
}