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

##</code><code>##

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