#!/usr/bin/perl -w
print "Enter a list of words : \n";
chomp(@input = <>);
foreach (@input)
{
	print "Found $_\n" if /a/i && /e/i && /i/i && /o/i && /u/i;
}