Regular expression program doesn't print

Question

I am trying to read data from a file and print the words (one per line) that contain all of the lowercase vowels ('a', 'e', 'i', 'o', 'u') in order. they don't need to be next to each other

#!/usr/local/bin/perl
#$data_file = "words.txt;
open (MYFILE, $data_file) or die "can't find file - $!";

while (<MYFILE> =~ m/.*a.*e.*i.*o.*u.*/i)
{
    print "$_";
}

close(MYFILE);

it is not printing anything :/

Answer 1

The problem isn't the regular expression, but how you use the file handle, try this:

while (<MYFILE>) {
    print if /.*a.*e.*i.*o.*u.*/i;
}