Select Code to Download

# use strict;
# use warnings;

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

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

for ( $i = 0 ; $i < length($a) ; $i++ ) {
    $d = substr( $a, $i, 6 );
...
    }
}
print $a ;

my $printed = 0;

...
    }
}
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";