Select Code to Download

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

$id = -1;
foreach (@substr)
...
   print "$id\n";
   $id += length($_);
}