fillAccession.pl

#!/usr/bin/perl
#

while (<>) {
    chomp;
    if (/^LOCUS\s+([^\s]+)\s+/) {
        $acc = $1;
        $ver = $1 . '.1';
        print $_, "\n";
    } elsif (/^ACCESSION/) {
        print "ACCESSION   $acc\n";
    } elsif (/^VERSION/) {
        print "VERSION     $ver\n";
    } else {
        print $_, "\n";
    }
}