Help for this page

Select Code to Download


  1. or download this
    perl -pe"s/(.)/uc($1)/e" infile > outfile
    
  2. or download this
    while (<>) {
       s/(.)/uc($1)/e;
       print;
    }