# Programm um Morse-Palindrome zu finden
# Program to find Morse palindromes
#
# Fabian Kurz, DJ1YFK

%code = ( " " => " ", "!" => "..--.", "\"" => ".-..-.", "\$" => "...-..-", "&" => ". ...", "'" => ".----.", "(" => "-.--.", ")" => "-.--.-", "+" => ".-.-.", "," => "--..--", "-" => "-....-", "." => ".-.-.-", "/" => "-..-.", "0" => "-----", "1" => ".----", "2" => "..---", "3" => "...--", "4" => "....-", "5" => ".....", "6" => "-....", "7" => "--...", "8" => "---..", "9" => "----.", ":" => "---...", ";" => "-.-.-.", "=" => "-...-", "?" => "..--..", "@" => ".--.-.", "A" => ".-", "B" => "-...", "C" => "-.-.", "D" => "-..", "E" => ".", "F" => "..-.", "G" => "--.", "H" => "....", "I" => "..", "J" => ".---", "K" => "-.-", "L" => ".-..", "M" => "--", "N" => "-.", "O" => "---", "P" => ".--.", "Q" => "--.-", "R" => ".-.", "S" => "...", "T" => "-", "U" => "..-", "V" => "...-", "W" => ".--", "X" => "-..-", "Y" => "-.--", "Z" => "--..", "\\" => "-..-.", "`" => ".----.", "a" => ".-", "b" => "-...", "c" => "-.-.", "d" => "-..", "e" => ".", "f" => "..-.", "g" => "--.", "h" => "....", "i" => "..", "j" => ".---", "k" => "-.-", "l" => ".-..", "m" => "--", "n" => "-.", "o" => "---", "p" => ".--.", "q" => "--.-", "r" => ".-.", "s" => "...", "t" => "-", "u" => "..-", "v" => "...-", "w" => ".--", "x" => "-..-", "y" => "-.--", "z" => "--..", "«" => ".-..-.", "»" => ".-..-.", "À" => ".--.-", "Á" => ".--.-", "Â" => ".-", "Ã" => ".-", "Ä" => ".-.-", "Å" => ".--.-", "Æ" => ".- .", "Ç" => "-.-..", "È" => "..-..", "É" => "..-..", "Ê" => ".", "Ë" => ".", "Ì" => "..", "Í" => "..", "Î" => "..", "Ï" => "..", "Ð" => "..--.", "Ñ" => "--.--", "Ò" => "---", "Ó" => "---", "Ô" => "---", "Õ" => "---", "Ö" => "---.", "Ø" => "---.", "Ù" => "..-", "Ú" => "..-", "Û" => "..-", "Ü" => "..--", "Ý" => "-.--", "Þ" => ".--..", "ß" => "...--..", "à" => ".--.-", "á" => ".--.-", "â" => ".-", "ã" => ".-", "ä" => ".-.-", "å" => ".--.-", "æ" => ".- .", "ç" => "-.-..", "è" => "..-..", "é" => "..-..", "ê" => ".", "ë" => ".", "ì" => "..", "í" => "..", "î" => "..", "ï" => "..", "ð" => "..--.", "ñ" => "--.--", "ò" => "---", "ó" => "---", "ô" => "---", "õ" => "---", "ö" => "---.", "ø" => "---.", "ù" => "..-", "ú" => "..-", "û" => "..-", "ü" => "..--", "ý" => "-.--", "þ" => ".--..", "ÿ" => "-.--" );

while ($word = <>)  {		# One word / line
	$cw = '';
	chomp $word;

	for ($i=0; $i < length($word); $i++) {
		$cw .= $code{substr($word, $i, 1)}." ";
	}
	$cw =~ s/ $//g;

	if ($cw eq reverse $cw) {
		print "$word\n";
	}
}