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