if ($item =~ /^\d+$/) {
    # do something
}