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