print qq{DATE\t "$1-$2-$3"\n};

##</code><code>##

while (<INFO1>) {
    if (/^DATE\s*(\d+)-(\w+)-(\d+)/) {
        print qq{\nDATE\t"$1-$2-$3"\n};
    }
    elsif (/\s*\/intron="([^"]+)/) {
        foreach my $item (split('\;',$1)) {
            print "Intron\t{Translation%$item}\n";
        }
    }
    elsif (/\s*\/exon="([^"]+)/) {
        foreach my $item (split('\;',$1)) {
            print "Exon\t{Translation%$item}\n";
        }
    }
}