print<>=~s/(\pL)|./uc($&).("",lpha,ravo,harlie,elta,cho,oxtrot,olf,otel,ndia,uliet,ilo,ima,ike,ovember,scar,apa,uebec,omeo,ierra,ango,niform,ictor,hiskey,-ray,ankee,ulu)[31&ord$+]." "/ger
Note that non-ascii characters in the above source code will be escaped (such as \x9f).