Perl/regex 删除字符串的前 3 行和后 3 行

我正在寻找构建一个正则表达式语句以始终删除前 3 个 字符串的行，以及字符串的最后 3 行（中间部分 可以是任意 n 行内容）。任何干净的正则表达式方式来实现 这个输出？ （即总是删除我们的前 3 行和最后 3 行 字符串 - 并保留中间部分，这可以是一个变量# 行数）

Thanks.

e.g.

输入字符串：

"
1
2
3
<1...n # of lines content>
4
5
6
"

到所需的输出字符串：

"<1..n # of lines content>"

前面给出的解决方案确实很复杂！一个人所需要的只是

s/^(?:.*\n){1,3}//;
s/(?:.*\n){1,3}\z//;

如果您想接受末尾缺少尾随换行符，您可以使用

s/\n?\z/\n/;
s/^(?:.*\n){1,3}//;
s/(?:.*\n){1,3}\z//;

or

s/^(?:.*\n){1,3}//;
s/(?:.*\n){0,2}.*\n?\z//;