my @new;
my $prev= '';
my $found= 0;
while(  <DATA>  ) {
    if(  $found  ) {
        push @new, $prev . $_;
    }
    $found= /string1/;
    $prev= $_;
}
[download]