# Input
@terms = qw/Genetics Genomics phylogeny allele            
            ChromosomeLocusLink geneExpression       
            RasSignalTransductionPathway/;

foreach my $words (@terms) {
        my @wordlist = $words =~ /(?:(.+?[a-z])([A-Z].+))+/g;
}

# Desired Result

@separated_terms = qw/Genetics Genomics phylogeny 
                      allele Chromosome Locus Link 
                      gene Expression Ras Signal
                      Transduction Pathway/;