Shell Programming and Scripting

Hi!
I'm looking for a simple script, especially a one liner script in tcsh or bash
that will emulate the find/replace in all text apps.

I want to change all uppercase caracters to Title word (in wich only the first caracter is UpperCase and the rest is lowercase)

I can use sed command, but the -y (transformation) doesn't remember positionning.

the -s flag can't do something like : s/(^[A-Z])([A-Z])* /\1[A-Z]\2[a-z] /g

But a text apps I know (TextWrangler on Mac Os X) can do it with a command
using extend egrep (?) : find this: ^([A-Z])([A-Z])* replace by this: \1\L\2\E
where the first pattern isn't change while the rest is Lowered.

Still sed command can't do it

any solution, for simply transforming CAPITAL WORD into Title Word?

Tx a lot

-stef

Code:

perl -i.bck -pe's/\b[[:upper:]]+\b/ucfirst "\L$&"/eg' file1 [file2 ... filen]

Code:

sed 's/\(^[A-Z])([A-Z]\)* /\1[A-Z]\2[a-z] /g'