$<.chars{|s|print"-AlphaBravoCharlieDeltaEchoFoxtrotGolfHotelIndiaJulietKiloLimaMikeNovemberOscarPapaQuebecRomeoSierraTangoUniformVictorWhiskeyX-rayYankeeZulu"[/[#{s.upcase}][a-z-]*/]||s,' '}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).