use strict;
use warnings;

while (<DATA>) {
    chomp;
    my $str = $_;
    my $count = ($_ =~ tr/aeiouAEIOU//);
    print "$str: $count\n";
}

__DATA__
Here I am.
djghsjkghk
It's me.

##</code><code>##

Here I am.: 4
djghsjkghk: 0
It's me.: 2