sub ucwords {
        join $_[1], map ucfirst lc, split /\Q$_[1]\E/, $_[0], -1;
    }