#! /usr/bin/perl
$a = "a";;foreach $n (1 .. 26){$hash{$n} = $a;;$a++;
}$code = '01010.10101.10011.10100..00001.01110.01111
.10100.01000.00101.10010..10000.00101.10010.01100.
.01000.00001.00011.01011.00101.10010';;@array= split
( /\.\n*/, $code );;foreach $n ( 0 .. $#array ) { if
($array[$n] ne ""){@letter=split( /\s*/,$array[$n]);
$num=convert();$japh.=$hash{$num};}else{$japh.=" ";}
}$japh =~ s/\b([a-z])/\U\1/g;; print $japh,"\n";;sub
convert{$tot = 0;;if ( $letter[0] ){ $tot += 16;}if(
$letter[1]){$tot+=8; } if ($letter[2]){$tot += 4;}if
( $letter[3] ){ $tot+=2;} if ( $letter[4]){$tot+=1;}
return $tot;}