&fehler() unless ($rein =~ m/^\d+$/);