perl -le'($var = shift) =~ s/(.*)/\u$1/s; print $var' hi

##</code><code>##

perl -le'print uc(shift)'