#!/usr/bin/perl  
use warnings; 
   
  $seq="TT TATAAT CGCG ATG CAG GAG TGG TAA TGA TAG CC TGA TATAAT CCC ATG CTA 
CAT TGA TT"; 

 $seq=~ s/\s//gs;   

while ($seq=~ /([AG]TG).*?(TAA|TAG|TGA)+?/gs) {
           
    my $match=$&; 
     $match=~ s/\s//g; push  @matches,$match;}  

print"\n Matches are:\n\n"; 
print join ("\n",@matches);
print"\n\n";  
exit; 

##</code><code>##

C:\Users\Dr Supriyo>cd desktop

C:\Users\Dr Supriyo\Desktop>g1.pl

 Matches are:

ATGCAGGAGTGGTAA
ATGCTACATTGA

##</code><code>##

ATGCAGGAGTGGTAA
ATGCAGGAGTGGTAATGA
ATGCAGGAGTGGTAATGATAG
ATGCAGGAGTGGTAATGATAGCCTGA
ATGCTACATTGA