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