@fields = split /, (?=[A-Z])/, $string;