#!/usr/bin/perl


@MORSE_VALUES = (".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--",
 "--..", "-----", ".----", "..---", "...--", "....-", ".....", "-....", "--...", "---..", "----.");

#$morse_message = "-.--....--.-.------.----....-...----------.-.-.--.--....----....--..-.-.-.-.";
#$morse_message = ".-.-.-.-..--....----....--.--.-.-.----------...-....----.------.-.--....--.-";
#$morse_message = "-.-.-.-.--..----....----..-..-.-.-..........---.----....-......-.-..----..-.";
$morse_message = ".-..----..-.-......-....----.---..........-.-.-..-..----....----..--.-.-.-.-";


open(WORDS, "/usr/share/dict/words");
@words = <WORDS>;
close(WORDS);

chomp(@words);

@words = (@words);

foreach $w (@words) {
        $w = uc($w);


        $mw = convertToMorse($w);


if (index($morse_message, $mw) != -1) {
    print "$mw "."$w\n";
}
}



sub convertToMorse {
        local($str) = @_;

        $morse = "";

        for($i=0;$i<length($str);$i++) {
                $ascii = ord(substr($str, $i, 1));

                if ($ascii > 64 && $ascii < 91) {
                        $morse .= $MORSE_VALUES[$ascii - 65];
                }
                elsif ($ascii > 47 && $ascii < 58) {
                        $morse .= $MORSE_VALUES[$ascii - 48 + 26];
                }
        }

        return $morse;
}