#!/usr/bin/perl -w

use strict;

while (<>) {
	for (split) {
		next unless /^[a-z]+$/i;
		print "$_\n" if /^[^aeiou]+$/i;
	}
}