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