c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my $seq = 'xABCxABCxxxWXYxWXZxxxABCxxWXYx';
 ;;
 my $subseq = qr{ ABC \w* (?: WXY | WXZ) }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;
   }
"
[
  ["ABCxABCxxxWXYxWXZxxxABCxxWXY", 1],
  ["ABCxABCxxxWXYxWXZ", 1],
  ["ABCxABCxxxWXY", 1],
  ["ABCxxxWXYxWXZxxxABCxxWXY", 5],
  ["ABCxxxWXYxWXZ", 5],
  ["ABCxxxWXY", 5],
  ["ABCxxWXY", 21],
]

##</code><code>##

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],
]

##</code><code>##

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 ($sr_seq, $regex) = @_;
   ;;
   local our @hits;
   use re 'eval';
   $$sr_seq =~ m{
     ($regex) (?{ push @hits, [ $^N, $-[1] ] }) (?!)
     }xmsg;
   ;;
   return @hits;
   }
"
[
  ["ATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGATCTAA", 1],
  ["ATGGTTTCTCCCATCTCTCCATCGGCATAAAAATACAGAATGA", 1],
  ["ATGGTTTCTCCCATCTCTCCATCGGCATAA", 1],
  ["ATGATCTAA", 40],
]