$_ = "ATGCCCGATATATATCCCNNNATATATGCGCATGCTGCT";
say length $1 while /\G(.*?)AT/g;
say length $';
__END__
0
5
0
0
0
6
0
0
4
6