y/A-Z/ZA-Y/,s/.//s,print$&while$_.=<>