$count{$_}++ for $string =~ /../g;