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

##</code><code>##

my @fields = split /(?(?{pos() % 3})(?!))/, $string;