Something like this should work:

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

...roboticus

When your only tool is a hammer, all problems look like your thumb.