my $start = index ($dna,'ATG');
my $end1 = rindex($dna,'TAA');
my $end2 = rindex($dna,'TAG');
...