if (/\D/) {
    print "Da ist was drin, was keine Ziffer ist.\n";
} else {
    # ...
}