#!perl -paF
s;.;\u$&
;g;s;;\U@F