my ($str) = @_;
    $str =~ tr/-/ /;
    #$str =~ tr/a-zA-Z/ /cs;
    my $new;
    while ( $str =~ m/\G([\p{isUpper}|\p{isLower}|\s]+)/g ) {
                $new.=$1;
            }
    $str = $new;
    $str =~ s/(?<=\p{isLower})(?=\p{isUpper})/ /g;
    $str =~ s/(?:(?<=\s)|(?<=^))(\p{isLower})/\u$1/g;
    $str =~ s/\s+$//r