while(!eof(FILE))
  {
    my $c = getc(FILE);
    $count{lc($c)}++ if $c=~/[a-zA-Z]/;
  }