my $zeros = tr/0//;