while($seq =~/(ATG)(...)*?(?=TAA|TAG|TGA)/og){
$start = length($');
}