#!/usr/bin/perl -w
use strict;
-use Data::Dumper;
local $/ = "\n\n";
while (<>) {
my $nper = 0;
my %q;
- for my $per (split /\n/) {
+ for (split /\n/) {
$nper++;
- $q{$_}++ for grep { /\S/ } split(//, $per);
+ $q{$_}++ for split //;
}
- my $count = grep { $q{$_} == $nper } keys %q;
- $sum += $count;
+ $sum += grep { $q{$_} == $nper } keys %q;
}
print "$sum\n";