Help for this page
my $line ='atgcatccctttaat'; my @trips = unpack('a3X2' x (length($line)-2), $line); print join "\n", @trips;
atg tgc ... tta taa aat