#!/usr/local/bin/perl -w

$morse{a} = ".-";   $morse{q} = "--.-";  $morse{6} = "-....";
$morse{b} = "-..."; $morse{r} = ".-.";   $morse{7} = "--...";
$morse{c} = "-.-."; $morse{s} = "...";   $morse{8} = "---..";
$morse{d} = "-..";  $morse{t} = "-";     $morse{9} = "----.";
$morse{e} = ".";    $morse{u} = "..-";   $morse{' '} = "*";
$morse{f} = "..-."; $morse{v} = "...-";  $morse{'.'} = ".-.-.-";
$morse{g} = "--.";  $morse{w} = ".--";   $morse{','} = "--..--";
$morse{h} = "...."; $morse{x} = "-..-";  $morse{'?'} = "..--..";
$morse{i} = "..";   $morse{y} = "-.--";  $morse{':'} = "---...";
$morse{j} = ".---"; $morse{z} = "--..";  $morse{"'"} = ".----.";
$morse{k} = "-.-";  $morse{0} = "-----"; $morse{'-'} = "-....-";
$morse{l} = ".-.."; $morse{1} = ".----"; $morse{'('} = "-.--.-";
$morse{m} = "--";   $morse{2} = "..---"; # $morse{')'} = "-.--.-";
$morse{n} = "-.";   $morse{3} = "...--"; $morse{'"'} = ".-..-.";
$morse{o} = "---";  $morse{4} = "....-";
$morse{p} = ".--."; $morse{5} = ".....";

%alphabet = reverse %morse;
while (<>) {
  s/(.+?)\s/$alphabet{$1}/g;
  print "$_\n";
}
print "\n --- End of message ---\n";
[download]