如何让一行匹配多个关键字？

如题，例如我有这样的一个文本

john,suco,linfen,minto
john,sc,linfen,123
467,cai,to,400se,unix
linfen,minto,unix

现在想判断一下每行是否匹配了linfen或者minto或suco

我想把匹配关键字放在一个数组里
@keyword=qw(minto linfen suco);

怎么写判断语句呢？

...;
my $regex=join "|",@keyword;
while(<>){
   /$regex/ and do {
     #sth you want to handle
   };
}