perl -pe"s/(.)/uc($1)/e" infile > outfile

##</code><code>##

while (<>) {
   s/(.)/uc($1)/e;
   print;
}