小编cod*_*NOT的帖子

我正在尝试从文件中读取数据并按顺序打印包含所有小写元音('a','e','i','o','u')的单词(每行一个).他们不需要彼此相邻

#!/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);

它不打印任何东西:/