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