my %count;
map { ++$count{$_} } ( $site =~ /([A-WY._])/g );