@d = “CCATGNNNTAACCNNATGNNTAGCC”;

##</code><code>##

my $string ="@d";

##</code><code>##

#!/usr/bin/perl -w
my $string = "CCATGNNNTAACCNNATGNNTAGCC";
while($string =~ /[AG]TG.*?[AG][AG]/g) {
  print "matched at ", pos($string) - length($&), ": ", $&, "\n";
}