use Text::Morse;
my $morse = new Text::Morse;
print scalar($morse->Decode("... --- ...")),"\n";
print scalar($morse->Encode("Adam Bertil")),"\n";
use Convert::Morse qw(as_ascii as_morse is_morsable);
print as_ascii('.... . .-.. .-.. --- -- --- .-. ... .'),"\n"; # 'Helo Morse'
print as_morse('Perl?'),"\n"; # '.--. . .-. .-.. ..--..'
print "Yes!\n" if is_morsable('Helo Perl.'); # print "Yes!"
print map{ s/\./돈/g;s/-/쯔/g;$_; } as_morse('Perl?');