perl '-pe$_=uc.lc<>'