#!perl -p s/.[a-z]+/++$$_%2?lc$&:uc$&/eg