Select Code to Download

056: my (@words, $char, $vowel);
057: while (<$IN>) { 
058:     @words = split /[\W]/, ;
...
                                                       ## we're gettin
+g word length
063:         for (my $i = 0; $i < $end; $i++) {
064:             $char = substr($word, $i, 1);          ## and again..
+..