My first attempt

s;;join"\n",map{unpack"B*",$_}map{unpack"u",$_}qw:&?(3^_H+^ &@HB`@(*` 
+&@)"`@(*` &?.#X^(+X &`I"`@$2` &@HB`@"B` &?(3^_A#^:;e;y;1;#;;s;$;\n;;y
+;0;.;;print
[download]

This should become my footer line. Comments welcome

Comment on My first attempt Download Code

Replies are listed 'Best First'.
Re: My first attempt by halley (Prior) on Apr 29, 2003 at 14:34 UTC
Good stuff. Props for nesting `s//join,map{}qw()/e` to reduce legibility. Since this will probably wordwrap in the middle of a long qw:...:, and in fact, in the middle of a "word", you may want to add a hard line break to protect your encoding. -- `[ e d @ h a l l e y . c c ]`	[reply] [d/l]