my @matches = $seq =~ /[AG]TG.*?T[AG][AG]/ig;
print "Here are the matched parts of the string:\n";
print "  '$_'\n" for @matches;
my $GENE = @matches;