Select Code to Download

{
  my @new;
...
  push @new, $_ =~ m/^(bla)/;
  print(@new, "\n");  # prints bla
}

while (<IN>) {
   push @new, m/^(\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+)/;
...
   s/^\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+\S+\s+/$new[$i++]/;
   print OUT $_;
}