#!/usr/bin/perl
if (<>) {
	@dog = <>;
	foreach $cat (@dog) {
		if ($cat =~ /a/i && $cat =~ /e/i && $cat =~ 
/i/i && $cat =~ /o/i && $cat =~/u/i) {
			print "$cat";
							     }
			    }
}