$ cat companies
WOOLWORTHS
CAP GEMINI
AVIVA
AMERADA HESS
RUN4LIFE
$ perl -pi.bak -e '$_ = join q{}, map { ucfirst lc } split m{([^A-Z]+)};' companies 
$ cat companies
Woolworths
Cap Gemini
Aviva
Amerada Hess
Run4Life
$