#!perl -p
$i=0;s/[A-Z][a-z]+/++$i%2?uc$&:lc$&/eg