$a =~    s#([A-Z])([A-Z]{3,})#$1\L$2\E#g;