#!/usr/athena/bin/perl
$len = pop @ARGV;
while(<>) {
    $_ =~ s/[\r\n]*$//;
    $word = "\L$_";
    $wordlen = length($word);
    next unless $wordlen eq $len;
    $vowel = $word;   $vowel =~ s/[^aeiou]//g;
    $cons  = $word;   $cons  =~ s/[aeiou]//g;
    next if $cons eq '';
    $vowels = length($vowel);
    $conses = length($cons);
    $ratio  = $vowels / $conses;
    next if $ratio < .1;
    print "$ratio $word -> $vowel $cons, $vowels/$conses\n";
}