It doesn't work on a Mac. You have the equal and opposite problem to the one I had with When a PERL Hacker Retires.

BTW I was able to see what it's supposed to do by copying the output into BBEdit and replacing all the "funny" characters with line feeds. Cool work!

Oh and here's a fix that certainly works on the Mac and I'm pretty sure is platform-indepedent:

#! perl -w

                %a=(N,ord("\n"),X,32,P,43,
              M,45,F,47         ,B,92,L,95,U
         ,124,D,68,                 G,71);undef
        $/;@_=                         split/\s+/
      ,<DATA>;                          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
[download]