#!perl
use strict;
use warnings;
use Data::Dump 'pp';
##
my $inGeneDat = $ARGV[0] || "genes.dat";
open IN,'<',$inGeneDat or die "cannot open $inGeneDat\n";

{
  local $/ = '//';
  while ( my $record = <IN> ){
    my %values=();
    my @lines = split "\n",$record;
    for (@lines){
      if (/^(UNIQUE-ID|ACCESSION-\d|DBLINKS|COMMON-NAME) - (.*)/){
        my ($key,$val) = ($1,$2);
        # print "$key $val\n";
        if ($key eq 'DBLINKS'){ 
          if ($val =~ /ECOGENE \"(EG\d+)\"/){
            $values{$key} = $1;
          }
        } else {        
          $values{$key} = $val;
        }
      }
    };
    pp \%values; # build %HoNm as required

  }
}

close(IN);
[download]