s/./\u& /g s/[A-Z]/!&AlphaBravoCharlieDeltaEchoFoxtrotGolfHotelIndiaJulietKiloLimaMikeNovemberOscarPapaQuebecRomeoSierraTangoUniformVictorWhiskeyX-rayYankeeZulu/g s/!\(.\)\S*\(\1[a-z-]*\)\S*/\2/g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).