Was machst Du dann mit Nachnamen wie "Müller", "Bäcker", "Gaßmann",...

Und unless ($name =~ m/^\w/) { macht nicht das was Du willst, denn hier sagst Du, dass alle Eingaben, die mit A-Z, a-z, 0-9 oder _ anfangen, falsch sind...

Du wolltest sicherlich eher unless ($name =~ m/[^\w]/) { oder unless ($name =~ m/\W/) {... Das erkennt alle Eingaben als falsch, das ein Zeichen enthält, das *nicht* zu A-Z, a-z, 0-9 oder _ gehört...