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