056: my (@words, $char, $vowel);
057: while (<$IN>) { 
058:     @words = split /[\W]/, ;
059:     for my $word(@words) {                         ## explicit variable declared...
060:         print $OUT (encode ('UTF-8', $word)) . "\n";  ## and put to further use...
061:         my $count = 0;
061a-061z:                              ## hypothetical insert, tweak, extension, etc
062:         my $end = length($word);                   ## Ahah, easy to verify that 
                                                       ## we're getting word length
063:         for (my $i = 0; $i < $end; $i++) {
064:             $char = substr($word, $i, 1);          ## and again....