>type infile
hello h e l l o
bye b y e
bike b i k e

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

>type outfile
Hello h e l l o
Bye b y e
Bike b i k e