学习Perl时的问题？跪求
大虾：
有这样一个问题：
编写一个短程序，使它能够执行下列操作：
1) 打开一个文件。
2) 将所有文件行读入一个数组。
3) 从每个行中取出所有单词。
4) 找出至少拥有4个连续辅音或非元音字母的所有单词（比如“ t h o ug h t s”或“y ar d s ti c k”
这样的单词）
我刚学习正则表达式的模式匹配，自己也不懂，怎么也写不出来后面的部分（4），请高手帮忙阿！！
我写的前半部分：
#!/usr/bin/perl -w
open(FILE,"test.txt")||die "$!\n"; #test.txt 为我那个要打开的文件；
binmode(FILE);
@test=<FILE>;
print @test;
print "\n";
close(FILE);
~~~~~~~~~~~~ #后面不会了；:confused:
