Addressing your first issue is simple a matter of incrementing a count rather than printing the line.

$ perl -Mstrict -wE '
> open my $fh, q{<}, \ <<EOD or die $!;
> 0  a b h
> 1  - r z
> 3  u - u
> 4  r x r
> 5  r t r
> 6  r r r
> 7  r r r
> 8  r r r
> EOD
> 
> my $count;
> while ( <$fh> )
> {
>     my( $seq, @cols ) = split;
>     $count ++ if tr{r}{} == scalar @cols;
> }
> say $count;'
3
$

[download]

The supplementary question requires a little more jiggery-pokery.

$ perl -Mstrict -wE '
> open my $rand, q{<}, \ <<EOD or die $!;
> 2 32 321
> 2 13 213
> 3 31 312
> EOD
> 
> my @tests =
>    map [ split ],
>    <$rand>;
> 
> open my $fh, q{<}, \ <<EOD or die $!;
> 0  a b h
> 1  - r z
> 3  u - u
> 4  r x r
> 5  r t r
> 6  r r r
> 7  r r r
> 8  r r r
> EOD
> 
> my @results;
> while ( <$fh> )
> {
>     my @cols = split;
>     foreach my $idx ( 0 .. $#tests )
>     {
>         foreach my $subidx ( 0 .. $#{ $tests[ $idx ] } )
>         {
>             my @posns = split m{}, $tests[ $idx ]->[ $subidx ];
>             $results[ $idx ]->[ $subidx ] ++
>                if scalar @posns == grep { q{r} eq $cols[ $_ ] } @pos
+ns;
>         }
>     }
> }
> 
> say qq{@$_} for @results;'
4 3 3
4 5 3
5 5 3

[download]

I hope this is useful.

Cheers,

JohnGG

In reply to Re^3: Count similar characters in a row by johngg
in thread Count similar characters in a row by $new_guy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.