#!perl -p
s/[A-Z]+|[a-z]+/\u\L$&/g;s/./\l$&/