$ perl -le'$_ = "MiXeD CaSe ExAmPlE"; print; s/([[:alpha:]])/ $1 eq "\
+U$1" ? "\L$1" : "\U$1" /eg; print'
MiXeD CaSe ExAmPlE
mIxEd cAsE eXaMpLe
[download]