my $digit_count = $num =~ tr/0-9//;