s/[A-Z]/print ord$&,$"/egfor<>