Select Code to Download

my @lines = ();

...

for(my $i = 0; $i <= 1000; $i += 100)
 {print $lines[$i] || "";}