Select Code to Download

tr/0123/TCAG/

my $dna = '';
use constant CHUNKSIZE => 2048;
for (my $offset = 0; $offset < length($raw); $offset += CHUNKSIZE) {
   $dna.= join '', @CONV[ unpack 'C*', substr $raw, $offset, CHUNKSIZE
+ ];
}

s/(.)/$CONV[ord $1]/sge