@array = $_;

##</code><code>##

    elsif(/^TITLE/)    {$title = (s/                   /\n\t\t /g,$_);}
    elsif(/^ORGANISM/){$org = (s/                   /\n\t\t /g,$_);}

##</code><code>##

    elsif(/^(TITLE)\s+(\S.*)/) { $title = "$1\n\t\t $2\n" }
    elsif(/^(ORGANISM)\s+(\S.*)/) { $org = "$1\n\t\t $2\n" }

##</code><code>##

    elsif(/^ACCESSIONS\s+(\S.*)/) {
        my %seen = ();
        @accessions = grep { $seen{$_}++ == 0 } split /;\s+/, $1;
    }