split("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",A){for($0=$(FS=e);c>sprintf("%c",64+e++)?$j=c A[e]:e=c=toupper($++j);)}1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).