This script performs a simple task in a needlessly complex manner.

I derived this from some work I did out of spite to annoy a Python-programming friend after a discussion about brackets :) 

#!/usr/bin/perl -w
use strict;
my $japh=<<JAPH
  [}{{[}  {]  []  ][[]}]  [}[{{]
    {{    {]  {]  [[        }{
    []    }]  {]  {]{}]}    [}
{{  [}    {]  []      ][    []
  }]      [}[{{]  {{[}[[    []

  {}{]    ]{      {]  [}[{]][}  [[[}{} [}    [{  {][}{]  ][{}]}
[}    {{  [}{]    []  ][    []    }]   [}    [{  {]      {{    {]
[}{]{{{]  [}  {}  ]}  [}    {{    [}   {][]][[]  }][}[{  {]{{[}
[[    []  {}    {]]{  {]    [}    [{   {[    []  }]      []  }}
[}    [{  []      ]{  [][[[}{]    {]   [}    {]  ][{}]}  [}    {{

[}{][]    ][[]}]  [}[{{]    {{
{]    {]  [[      }{    []  }]
{]{]{}    ]}[}{{  [}{][]    ][
[]        }]      [}  [{    {]
{{        [}[[[]  {}    {]  ]{{][}

[[    {{    [][[      [}{][]  }{    {]  [}{]][  {}]}[}
{{    [}  {]    []  ][        []  }]    [}      [{   {]
{{{][}{]  {{{][}{}  ]}        [}{{      [}{][]  ][[]}
][    }[  {{    ]{  {[        }[  [[    ]{      }{ ]]
{{    ][  }[    {]    {[]{[[  ]{    }[  ]]}[][  [[   }{

]{][}{]][{}]}[}{{[}{][]][[]}][}[{{]{{{]{][[}{[]}]{]{]{}]}
JAPH
;my $l=''; my $o='';foreach($japh){chomp; my $len=
length($_);for(my $p=0;$p<$len;$p++){ my $b=substr
($_,$p,1); if($b eq ' '){ next;}$o.= b2bin($b);if(
length($o) == 8){$l.=pack('B8',$o);$o ='';}}}eval(
$l);sub b2bin {my $b = shift; if($b eq '{'){return
'00';} elsif($b eq '['){ return '01';} elsif($b eq
']'){return '10';}elsif($b eq '}'){return '11'; }}

[download]

In reply to JAPH / Perl Rube Goldberg Machine by eighty-one

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.