c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my $seq = 'AATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAA';
 ;;
 my $subseq = qr{ ATG \w* (?: TAG | TAA | TGA) }xms;
 ;;
 my @all = find_all($seq, $subseq);
 dd \@all;
 ;;
 ;;
 sub find_all {
   my ($seq, $regex) = @_;
   ;;
   local our @hits;
   use re 'eval';
   $seq =~ m{
     ($regex) (?{ push @hits, [ $^N, $-[1] ] }) (?!)
     }xmsg;
   ;;
   return @hits;
   }
"
[
  ["ATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAA", 1],
  ["ATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGA", 1],
  ["ATGGTTTCTCCCATCTCTCCATCGGCATAA", 1],
  ["ATGATCTAA", 40],
]