$string = 100000000000000000;
if ($string =~ /\D/) {
        print qq { Wert ist keine Zahl };
}
print $string;
_ _END_ _
 Wert ist keine Zahl 1e+17