print/[A-Z]/?"AlphaBravoCharlieDeltaEchoFoxtrotGolfHotelIndiaJulietKiloLimaMikeNovemberOscarPapaQuebecRomeoSierraTangoUniformVictorWhiskeyX-rayYankeeZulu"=~/$_[-a-z]+/&&$&:$_,' 'for(uc<>)=~/./g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).