my %count;
while (<FH>) {
    $count{lc $_}++ for grep { !m{^[0-9]+(\.[0-9]+)?$} } m/\w+/g;
    }
##</code><code>##

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