#! /usr/bin/perl
use strict;
use warnings;

while  ( my $line = <DATA> ) {

   my $count = $line =~ tr/AEIOUaeiou//;
   print $count, $/;
}

__DATA__
no
ah, two...
ave
ave caesar