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

##</code><code>##

++$chars{$_} for map /\w/g, <>