deconstruction: 
{
    # set $go and $/ to undef
    $go=$/=$go;

    # grab the data into $_
    $_=<DATA>;

    # ignore the "BAR" - this converts 'O' to '1' and 'F' to '0'
    y!FOO!01BAR!;

    # remove whitespace (so $_ just contains a big binary string)
    s! |\n!!go;
}
{
    # pack each 7 bit binary sequence into a character and
    # append to $go
    $go.=pack C,oct"0b$1" while s<(.{7})><>;
    
    # assign $_ the contents of $go
    $_=$go
}
{
    # this does nothing (but is funny)
    $go,$go,$go and 

    # sort character pairs then print the second char of each pair
    # seems familiar ;o)
    print map{m<.(.)>}sort m<..>go
}
 __DATA__

OOFFOOOOOFOO      OFOO       OOFFFOOOFFO    FOOO    FFOO    OFFO
FFFOOFOOOFOF    OFFFFOOF     OFFFOOFOOOOO   OFOO    FOFO    FFFF
    FOOO      FOOF    OOFO   FOOO    OFOF   OOOO    FFOF    OOOF
    OFOF      OOFO    FFFO   OFFF    OOOO   OFFO    OOOF    FFFO
    OFFO      FOFOOOFFOFFO   FFFFFOOOFOFF   OOFFFFOOOFFO    FFOO
    OFOF      FOOFFOFOFOFF   FFFOOFFOOFO    FFFFFOOOOFOF    OOOF
    FFOO      OOOF    FFOO   OFOO           FFOO    OFFF    FOOO
FF  OFOO      FOOO    OOOF   FOFO           OOFO    OFFO        
OOFFOFOO      FFFO    FOOO   FOFO           OOFO    FFOO    OOFO
 FFOOOF       OOOO    OFFO   FOOO           OOFF    OFOF    FFFO

[download]

In reply to Re: Go, go, go! by iamcal
in thread Go, go, go! by tachyon

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.