my $count = tr/0-9//;