Select Code to Download

D:\Development>perl -e "print 'a3' x 10"
a3a3a3a3a3a3a3a3a3a3

while ($seq~=/\G(...)/sg) {
  print "Got: $1\n";
}