$string = "123876as";
if($string =~ /\D/) {
     print qq { Wert ist keine Zahl };
}