$i=0,s/./$<"a"?($i++%2?lc$&:$&):($i%2?uc$&:$&)/ge,print for<>