#!/usr/local/bin/perl

while ($line = <STDIN>) {
        $line =~ s/[^aeiou]//g;
        @vowels = split(//, $line);
        foreach $vowel (@vowels) {
                $vowelcount{$vowel} += 1;
        }
}
$~ = "VOWELFORMAT";
write;

format VOWELFORMAT =
==========================================================
Number of vowels found in text file:
          a: @<<<<<   e: @<<<<<
          $vowelcount{"a"}, $vowelcount{"e"}
          i: @<<<<<   o: @<<<<<
          $vowelcount{"i"}, $vowelcount{"o"}
          u: @<<<<<
          $vowelcount{"u"}
==========================================================
.
