my $string = "abcdefghi";
my @fields = split /(?=.{3})/, $string;