if (not($rein =~m/^\d+$/)) { &fehler(); }