如何从文本文件中读取5行，然后将剩余的行保存回同一文件

Question

我有一个包含200行的文本文件，如下所示：

#!/usr/bin/env perl
use strict;
use warnings;

my %stuff;
$stuff{'b'} = 10;

my $target = 'b';
print $stuff{$target}; 

我想阅读该文本文件并获得google yahoo bing msn soso baidu 的前5行，并将所有剩余行保存回同一文本文件。