Select Code to Download

while (<>) {
   if (/name/) {
...
      # do something with $next_line ...
   }
}

open my $fh, '<', $file or die "can not open $file:  $!";
while <$fh> {
   ...
}