sub cap
{
    local $_ = shift || '';
    s/\b(\w\S*)/\u\L$1/g;
    s/(?<=\bO')(\w)/\u$1/g;
    s/(?<=\bMc)(\w)/ \u$1/g;
    return $_;
}