#!/usr/bin/perl

$fn = $ARGV[0];
open(FH, "$fn") || die("cannot open:$!");

          $\ = ' '; 
while(<FH>)
 {     
   
           $\ = "\n" if eof;
           chomp($_);
           $_ =~ s/\(|\)//xmg;
           if($_ =~ /LOCUS\s+(\S+)/) { $gi=$1; }
           elsif($_ =~ /\A\s+(\w+)\s+(\S+)\.\.(\S+)/) { print "\t\t$gi\t$1\t$2\t$3\n"; }
           elsif($_ =~ /gene\=\"(\S+)\"/) { print "\t\t$gi\t\t\t\t\tgene=$1\n"; }
           elsif($_ =~ /\/transcript_id\=\"(\S+)\"/) {print "\t\t$gi\t\t\t\t\tTranscriptID=$1\n";}

 }