perl 读取匹配行之后的内容

我的文件内容如下，只读取匹配到了2之后的内容；

#cat file.txt
111111111111
111111111111
111111111111
111111111111

222222222222
222222222222

3333333333333
3333333333333
3333333333333

代码如下：

#!/uer/bin/perl -w
usr strict;
open B,$ARGV[0] or die;
while(<B>){
    chomp;
    if (/\[^222\]/) {
    $line_num = $. + 1;
    }

    next if ($line_num == 0);
    if ($. > $line_num){
        print "$_\n";
        }
    }
}