11.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 local $/ = "\n\n";
   6
   7 my $sum = 0;
   8
   9 while (<>) {
  10         s/\n//g;
  11         my %q = map { $_ => 1 } split //;
  12         $sum += keys %q;
  13 }
  14
  15 print "$sum\n";
  16