s/./\u&@AlphaBravoCharlieDeltaEchoFoxtrotGolfHotelIndiaJulietKiloLimaMikeNovemberOscarPapaQuebecRomeoSierraTangoUniformVictorWhiskeyX-rayYankeeZulu /g s/\(\w\)@\S*\1\|[@-Z][^ @]*/\1/g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).