Regular expression program doesn't print

perl, regex

Solution

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;
}

Problem

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 :/

Original source