removed consonant/vowel coefficient, cleanup
add perl version, comments