12.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Data::Dumper;
   5
   6 local $/ = "\n\n";
   7
   8 my $sum = 0;
   9
  10 while (<>) {
  11         my $nper = 0;
  12         my %q;
  13         for my $per (split /\n/) {
  14                 $nper++;
  15                 $q{$_}++ for grep { /\S/ } split(//, $per);
  16         }
  17         my $count = grep { $q{$_} == $nper } keys %q;
  18         $sum += $count;
  19 }
  20
  21 print "$sum\n";
  22