readline; while($_=readline){ / /; $c=chr($`)cmp chr($'); print chr(61+$c),$/; }