#!perl -p
s#.#uc$&^$"&($_^=~$&)#ge