#!perl
use strict;
while (my $line = <DATA>){
  if ($line =~ /line 1/){
    print $line;
    <DATA> for 1..5;
    $line = <DATA>;
    print $line;
  }
}