gets
$><<[*?A..?Z].rotate($.)[$c.ord-66]while$c=$_[-$.-=1]