523066680

我觉得一般可能要考虑一段落中如果出现 多个 444perl的情况……
罢了，先大致做一下，有细节再说。学习学习

open READ,"<src.txt";
@all=<READ>;
$n=2;
$m=1;
$line=0;
foreach (@all) {
	chomp;
	$line+=1;
	if (/^444perl$/) {
		for $tmp (($line-$n) .. ($line+$m)) {
			print "Line$tmp : $all[$tmp-1]\n";
		}
	}
}
<STDIN>;COPY

以上代码只是对存在444perl行的前两到后一行进行枚举，并没有判断范围是否超标。