#!/usr/local/bin/perl -n
chop; tr/a-z/A-Z/; s/[^A-Z]//g;
foreach my $c (split '') { $count{$c}++; $total++; }
sub END {
  foreach my $c (sort keys %count) {
    printf "%1s   %4.1f%% %8d\n", $c, (100*$count{$c}/$total), $count{$c};
  }
}