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

&fehler() if not $rein =~ m/^\d+$/; # Klammern nicht notwendig; bei Ronnie uebrigens auch nicht

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