my %count;
for my $letter ( 'A' .. 'Z', '_', '.' ){
     $count{$letter} = () = $site =~ m/\Q$letter/g;
}