#! perl -w %a=(N,10,X,32,P,43, M,45,F,47 ,B,92,L,95,U ,124,D,68, G,71);undef $/;@_= split/\s+/ ,; chomp;$n= join '', @_;@_=split '',$n; foreach (@_) {print chr( $a{$_});} __DATA__ NXXX XXMPMXXX UXXXXX XXXXXX XUXU XXXXXX XXUB XXXXU XXUX XXX XXU NX XXXX XUUU FMPMX XFBX UFB FBMPM UFB FFU F X X UFF FUF UXXUF BFB XFU F F FUF NXX XX XL UBF BXU XXXB FBUX UBF XUX UXUBFUXXXUXBFU XUX XUX U BFBBUBBF U XXXX XXX X NXXX X XXXX XFX NXX XXXX XXXX XXXXX XXXXX XXXX XXXXX XXXXXXN