Looks to be morse code:
perl -e 'my %rt; @rt{qw/.- -... -.-. -.. . ..-. --. .... .. .--- -.- .-.. -- -. --- .--. --.- .-. ... - ..- ...- .-- -..- -.-- --.. .-.-.- | !/}=("A".."Z","."," ","\n");
hashes the dots and dashes to the letters, comma, and period.
for(split /\s+/,".--- ..- ... - | .- -. --- - .... . .-. | .--. .  .-. .-.. | .... .- -.-. -.- . .-. .-.-.- !"){print $rt{$_};}'
THen feeds your dots/dashes space delimited one by one as keys to the hash whereby the print prints out the letter.