#!/usr/bin/perl -w

unless (@ARGV){
  die "usage: $0 sequence_file\n";
}

while (<>){
  my @array = /(.{3})/g;
  print "@array\n";
}