如何在perl中提取模式后面的一定数量的行？

#!/usr/bin/perl

use strict;
use warnings;

# 打开文件
open(my $fh, '<', 'input.txt') or die "无法打开文件: $!";

# 读取文件内容
my @lines = <$fh>;

# 关闭文件
close($fh);

# 提取模式后面的一定数量的行
my $pattern = qr/pattern/;  # 替换为你要匹配的模式
my $num_lines = 5;          # 替换为你要提取的行数

my $found = 0;
my @result;

foreach my $line (@lines) {
    if ($found) {
        push @result, $line;
        $found++;

        if ($found > $num_lines) {
            last;
        }
    } elsif ($line =~ $pattern) {
        $found = 1;
    }
}

# 输出结果
print @result;