DATE  13-JUN-2000
  AUTHORS   Oren,D.A., Froy,O., Amit,E., Kleinberger Doron,N., Gurevitz,M. and Shaanan,B.
ORIGIN      
   1 acaaaataaa gtgaacttct gaaatcagca cgataaaaag aaacgaaaat 
  51 ttaatgtgtc ttatcatctt cccaattatg ggagtgcttg gcaaaaagaa 
//
DATE  13-JUN-2000
  AUTHORS    Froy O, Zilberberg N, Gordon D, Turkov M, Gilles N, Stankiewicz M, Pelhate M, Loret E, Oren DA, Shaanan B, Gurevitz M.
GenBank:AJ012313{%3858952&dopt=GenBank}, EMBL:AJ012313{%AJ012313}, DDBJ:AJ012313{%AJ012313}, SwissProt:P56637{%P56637}
ORIGIN
   1 aaaataaagt gaacttctga aatcagcacg ataaaaagaa 
//

##</code><code>##

compile : perl prog.pl input.db result 

#!/usr/bin/perl
my $input = $ARGV[0];
my $output = ">" . $ARGV[1];
my $counter=1;
my $no='D000001';

open(INPUT, $input) or die "Can't open $input.";
open(OUTPUT, $output) or die "Can't open $output.";

$/="//\n";
while (<INPUT>) {
    print "DBACC\t $no\n";
    if ($_=~/^DATE\s*(.*-.*-.*)\s*\n/){
        print "DATE\t $1\n";}
    elsif ($_=/^GenBank:(.*),\sEMBL:(.*),\sDDBJ:(.*)},\sSwissProt:(.*)\n/){
    print "ACCESSION:GenBank\t ($1)\n";
    print "ACCESSION:EMBL\t ($2)\n";
    print "ACCESSION:DDBJ\t ($3)\n";
    print "ACCESSION:SwissProt\t ($4)\n";
    }
    print "Entry $counter\n";
    $counter++;
    $no++;
   }
close (INPUT);
close (OUTPUT);