Combining some of the above, and challenging the algo with real world strings that aren't plain camelcase but still require some camelcase parsing:

for('TheTaoOfProgramming','NowA more,problematic stringExample','Make 
+The Girl Dance - Baby, Baby, Baby_(Audio replaced, horizontally flipp
+ed!)_fmt35'){
    next if $_ =~ /\W/;
    $_  =~ s/_/ /g;
    my @split = $_ =~ /[[:lower:]0-9]+|[[:upper:]0-9](?:[[:upper:]0-9]
++|[[:lower:]0-9]*)(?=$|[[:upper:]0-9])/g;
    $_ = "@split";
}
[download]