F:\apacheweb\test_8086\html\cgi-bin>perl
$string = "100000000000000000";
if ($string =~ /\D/) {
        print qq { Wert ist keine Zahl };
}
print $string;
^Z
100000000000000000