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