>perl -wMstrict -le
"my $seq =
   'AATCGGGTATGAAAAATTTTGCCGGCGTTTGCGATGAATATATTGCCGGAGAGA';
 ;;
 my $prime1 = 'ATGA';
 my $prime2 = 'TGCCG';
 ;;
 my @subseqs = $seq =~ m{ $prime1 (.*?) $prime2 }xmsg;
 printf qq{'$_' } for @subseqs;
"
'AAAATTT' 'ATATAT'

##</code><code>##

>perl -wMstrict -le
"my $seq =
   'AATCGGGTATGAAAAATTTTGCCGGCGTTTGCGATGAATATATTGCCGGAGAGA';
 ;;
 my $prime1 = 'ATGA';
 my $prime2 = 'TGCCG';
 ;;
 while ($seq =~ m{ $prime1 (.*?) $prime2 }xmsg) {
   printf qq{matched '%s' at %d thru %d \n}, $1, $-[1], $+[1]-1;
   }
"
matched 'AAAATTT' at 12 thru 18
matched 'ATATAT' at 37 thru 42