#!/bin/perl

$filename = 'words';
open(FILE, $filename)
  or die "Could not open file '$filename' $!";

while ($row = <FILE>) {
  chomp $row;
  print "$row\n" if "$row" !~ /^([^a]*|[^e]*|[^i]*|[^o]*|[^u]*|[^y]*)$/;
}