#!/usr/bin/perl -w

use v5.16;
use strict;

my $sum;
while (<>) {
	chomp;
	my $wov =()= /[aeiou]/g;
	next if $wov < 3;
	next if ! /(.)\1/;
	next if /ab|cd|pq|xy/;
	$sum++;
}
say $sum;
