#!/usr/bin/perl -w

use strict;

my $ESTid;
my $GENid;
my $perid;

while (<STDIN>){
    #chomp;
    if (/Query=/){
	my @query=split;
	$ESTid=$query[1];
    }
    if (/\>(ENST\d+\.\d)\|(ENSG\d+\.\d)/){
	$GENid=$1."_".$2;
    }
    
    if (/Positives =[\d\s\/]+\((\d+)\%\)/){
	$perid=$1;
	print "$GENid\t$ESTid\t$perid\n";
    }
}
