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