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'; }}
