my $str = "ATCGATCGAT";
my @substr = qw(ATCG CGAT);

##</code><code>##

$id = -1;
foreach (@substr)
{
   my $id = index($str,$_,$id);
   print "$id\n";
   $id += length($_);
}