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