if ($reply =~ m/^[0-9]+$/) {
    print "only digits\n";
} else {
    print "not only digits\n";
}




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl