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

##</code><code>##

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