# use strict;
# use warnings;
####
open(READ,";
$a = join( " ", @e );
##
##
open(READ,";
my $a = join( " ", @e );
##
##
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 ;
##
##
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";
##
##
print "AND THE POSITION IN THE STRING IS:", print join( ',', ( @c, "\n" ) ), "\n\n";
##
##
print "AND THE POSITIONS IN THE STRING ARE:", join( ',', @c ), "\n\n";