my @exons;
push @exons, eval "\\substr( \$chromosome, 
                   $-[0] - 1,
                   $+[0] - $-[0] - 1 )"
    while $chromosome =~ m[(CG.*?AT)]g;

...
for( @exons ) {
    print $$_, "\n\n";
}