#!/usr/bin/perl -w

use strict;

my $contig_id;
my $gene_id;
my $perc_id;

while(<STDIN>){

    chomp;
    if ( /Query=/ ){
	my @entries = split;
	$contig_id = $entries[1];
    }
    elsif( /\>(ENST\d+\.\d)\|(ENSG\d+\.\d)/ ){
	$gene_id = $1."_".$2;
    }
    elsif( /Positives[\d\/\s=]+\((\d+\%)\)/ ){
	$perc_id = $1;
	
	print $gene_id."\t".$contig_id."\t".$perc_id."\n";
    }
}