Select Code to Download

my @lines;
while(@lines < $n)
...
  @lines = grep/criteria/,split/\n/,`tail -n $i file.foo`;
  $i+=$n;
}

my @file = <FILEHANDLE>;
for(@file)
...
  push @lines,$_ if /criteria/;
  last if @lines>$n;
}