my %endpoints;
$endpoints{ $-[0] } = $+[0] 
    while $chromosome =~ m[(CG.*?AT)]g;