#!/usr/bin/perl

while (<>) {
	chop;
	if (/^ORFNAME:/) {
		$field = $_;
	} elsif (/^PRODUCT:/) {
		$field = $_;
	} elsif (/^GENENAME:/) {
		$field = $_;
	} elsif (/^FROM:/) {
		$field = $_;
	} elsif (/^TO:/) {
		$field = $_;
	} elsif (/^SEQUENCE:/) {
		$field = 'SEQLEN';
	} elsif (/^#/) {
		print "$orfname\t$genename\t$from\t$to\t$product\n";
	} elsif ($field =~ /ORFNAME/) {
		$orfname = $_;
		$field = '';
	} elsif ($field =~ /GENENAME/) {
		$genename = $_;
		$field = '';
	} elsif ($field =~ /PRODUCT/) {
		$product = $_;
		$field = '';
	} elsif ($field =~ /FROM/) {
		$from = $_;
		$field = '';
	} elsif ($field =~ /TO/) {
		$to = $_;
		$field = '';
	} elsif ($field =~ /SEQLEN/) {
		$seqlen = $_;
		$field = 'SEQUENCE';
	} elsif ($field =~ /SEQUENCE/) {
		$seq = $_;
	}
}
