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