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]