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.