#!/usr/bin/env perl

use warnings;
use strict;

use Text::Morse;


my $morse = Text::Morse->new;
while (<>) {
    chomp;
    s/\s//g;
    my $word = $_;
    $_ = $morse->Encode($_);
    s/\s//g;

    if(reverse($_) eq $_) {
        print $word . ": " . $_ . "\n"
    }