#!/usr/bin/perl
use strict;
use warnings;

my $cds = '';
my $version = '';
my $gi = '';
my @genbank = ();

my $data_file ="/DATA/GenBankFile.gb";
open(INFILE, $data_file) || die("Could not open file!");
@genbank=<INFILE>;
close(INFILE);

foreach my $line (@genbank) {
if( $line =~ /^\/\/\n/ ) { last;}
elsif($line =~ /^VERSION/) { $line =~ s/^VERSION\s*\w*\S\d*\s*\w*\S//; $version = $line;}
elsif($line =~ /^\s*\Sdb_xref="GI/) { chomp($line); $line =~ s/^\s*\Sdb_xref="GI://; $gi = $line;}
elsif($line =~ /^\s*CDS/){ chomp($line); $line =~ s/^\s*CDS\s*//; $cds = $line;}

print "$gi"."\t"."$version"."\t"."$cds\n" if (defined $cds and defined $gi and defined $version);
}