# use strict;
# use warnings;

##</code><code>##

open(READ,"<dna.txt");
@e = <READ>;
$a = join( " ", @e );

##</code><code>##

open(READ,"<dna.txt");
my @e = <READ>;
my $a = join( " ", @e );

##</code><code>##

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 ;

##</code><code>##

my $printed = 0;

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

##</code><code>##

print "AND THE POSITION IN THE STRING IS:", print join( ',', ( @c, "\n" ) ), "\n\n";

##</code><code>##

print "AND THE POSITIONS IN THE STRING ARE:", join( ',', @c ), "\n\n";