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