$><<s=gets;$><<$_ while s!=sub(/.[a-z]*$/){$&.swapcase}