#!perl -p
s/([A-Z][a-z]+)(.|)/\U$1\E\l$2/g