BEGIN {
    CORE::GLOBAL::ucfirst = sub {
        join ' ', map { s/^(.)/uc $1/e; $_ } split ' ', shift
    };
}