@qw{qw$.- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. -- -. ---
.--. --.- .-. ... - ..- ...- .-- -..- -.-- --.. .-.-.- | !$}=(A..Z
,q$.$,$",$/);print$qw{$_}for split/\s/,".--- ..- ... - | .- -. ---
- .... . .-. | .--. . .-. .-.. | .... .- -.-. -.- . .-. .-.-.- !"