echo 'jUSt ANOther PERl HACKer' | morse -s | perl -e"while (<>){chomp; my $out=$_; $out=~s/\s//g; $out=~tr/\-\.\,/10 /;print($out)}"| perl -e"while (<>){chomp; my $deco=$_; $deco=~tr/01/.-/; $deco=~s/\s/\,\n/g; print substr($deco,0,-2),$/}" | demorse