perl -MO=Deparse -e "$letters{$_}++ for split //, lc;"

##</code><code>##

foreach $_ (split(//, lc $_, 0)) {
    ++$letters{$_};
}