#!/usr/local/bin/perl -w
use strict;

my %count;

s/([a-zA-Z])/{ $count{lc $1}++; $1 }/eg
    while <>;

for my $letter (sort keys %count) {
    print $letter, "=", $count{$letter}, "\n";
}