$words{$_}++ foreach
            map { $_= lc; tr/ΰβιθκλοξτωϋη/aaeeeeiiouuc/; $_;}
            grep {length > 2} 
            split /[,.:;"?!'\n ]+/, $texte;