Select Code to Download

open( FILE, "<data.txt");
my @lines = (<FILE>);
...
  print $_ if (  $lines[$i-1] =~ /116">$/ ) && ( $i );
  $i++;
  }