Select Code to Download

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

    print ucwords("BATCH_USER_INFO", "_");