michael@trul:~/> perl prog.pl input
DATE    "13-JUN-2000"
Exon     {Translation%49-333}
Intron   {Translation%1-48}
Intron   {Translation%334-385}
DATE    "14-JUN-2000"
Exon     {Translation%1-120}
Intron   {Translation% - }