求助perl读.gz文件

这里有一个all.gz压缩的文件，需要一行行读取，然后匹配。

my $i=0;
my $file="all.gz";
open (IN, "gzip -dc $file|");
while (<IN>){
    $i++;
   if (/all/){
       print $_,"\n"
    }
}

结果发现$i是读一行增加1，但没有输出匹配到的一行

求解
谢谢

经过测试没问题, 你那个压缩文件里有没有包含all字符串的行啊