D:\>perl -le "print for unpack '(a3)*','atgactaatagcagtgg'";
atg
act
aat
agc
agt
gg