$count{lc $_}++ for grep { !m{^[0-9]+$} } m/^\w+$/g;