$_ = uc;

##</code><code>##

$_ = "\U$_";