# does not work - removes last lowercase and first uppercase letter at each boundary
#       my @wordlist = split /[a-z][A-Z]/, $words;

# does not work - only separates the last term from the list
        my @wordlist = $words =~ /(?:(.+?[a-z])([A-Z].+))+/g;