Select Code to Download

    print "$_ " for $dna =~ /(?=(..))/g;

    print @dna [$_ - 1, $_], " " for 1 .. $#dna;