#!/usr/local/bin/perl

$_ = <STDIN>;   # reads to $_ by default
print ("number of a's found: ", tr/a/a/, "\n");
print ("number of e's found: ", tr/e/e/, "\n");
print ("number of i's found: ", tr/i/i/, "\n");
print ("number of o's found: ", tr/o/o/, "\n");
print ("number of u's found: ", tr/u/u/, "\n");
