$count += tr/"// while <FILE>;