my @lines;
open FILE, "<", "foo.txt";
while( <FILE> ){
  push @lines, $_;
  next unless /\byourWord\b/;
  <FILE> for 1 .. 5;
}
close FILE;
open FILE, ">", "foo.txt";
print FILE, @lines;
close FILE;