my @split = $data =~ /\G([A-Z][a-z]?|\d)/g;