for ( $i = 0 ; $i < length($a) ; $i++ ) {
    $d = substr( $a, $i, 6 );
    if ( $d eq "AGGGGG" ) {
        print color 'bold green';
        $s++;
        push( @c, $i + 1 );
    }
}
print $a ;