local $/;
++$chars{$_} for <> =~ /\w/g