#!/usr/bin/perl -w -nietianmsurwdkgohvf_l_pjbxcyzq
#   --. --- -  .--. . .-. .-..
use strict;my$c;y/-. //cd;for$^(split){for$b(1..80){$_=int($b/27)
.$b/9%3 .$b/3%3 .$b# by  JH
%3;/[12]0/||do{y/120/.-/d;$^eq
$_&&print substr$^I,$c,1;$c++}}$c=0}  # and RC