BEGIN { *SCALAR::uc = \&CORE::uc }

##</code><code>##

sub SCALAR::uc { CORE::uc($_[0]); }

##</code><code>##

sub SCALAR::uc { goto &CORE::uc; }