print<>=~s#.#\u$&\l${['UluAnkee-rayHiskeyIctorNiformAngoIerraOmeoUebecApaScarOvemberIkeImaIloUlietNdiaOtelOlfOxtrotChoEltaHarlieRavoLpha'=~/.[a-z]*/g]}[90-ord uc$&] #gr
Note that non-ascii characters in the above source code will be escaped (such as \x9f).