if ($seq =~ /(ATG.*(TAA|TAG|TGA))/) {
   $subseq = $1;
}