$cnt = tr/0-9//;            # count the digits in $_