My first. Special thanks those who tested it for me (Zaxo, Macphisto, vroom, and others who i might've forgotten! :). Also, thanks to tilly and jmcnamara from whom i borrowed some subs. 
($_='fqahbOgrt1yrkvCgrt1QT1rtnzV')=~y/N-ZA-Mn-za-m1/A-Za-z:/;
$_ =join('',reverse(split //)); /(.+):(.+):(.+):(.+)/;require
"$2.pm";local $/;$i="$2::$1"->new($ARGV[0]||unpack('u',<DATA>
))or die$!; @a=(' ','.',':','+','*','!','$','#');%c =map{int(
255/$#a*i($_,@a))=>$_}@a;($l,$h)=$i->$4;for $y(0..$h-1){print
$c{c(a($i->rgb($i->$3($_,$y))),keys%c)}for(0..$l-1);print"\n"
;}sub i{@_{@_}=-1..@_;$_{$_[0]}}sub c{(sort{abs$a-$_[0]<=>abs
$b-$_[0]}@_)[1]} sub a{eval(join"+",@_)/@_}
__DATA__
MB5!.1PT*&@H````-24A$4@```"@````7"`(```#VL)I"````!&=!34$``%C'
M_$?@`@```"!C2%)-``!Z)0``@(,``/G_``"`Y@``=2X``.I?```ZEP``%V]I
MY,0K```!'$E$051XG&)@&"``$$`(]!\)4-$T7`H``@A%*1J#<BOQ&`400#2Q
M&"L;#0`$$(H&J@0UL@EXC`((()H@8BP&""!T#6CN10.8*K$J(,8$@`#"8B6<
M1%.'WPYD+;A\C*P1((#0`P?98DS56%V--9!P609G`P00=LUH_L8:=/A%\,A"
M&``!A,73:%9B.I\J%@,$$`&+,:6H93%``&&WF"2#R+,8((!P6HS'$52Q&""`
MJ&PQ,>HA#(``(LIB-#68@FBV$A,>``&$TV),^W#)8EJ/51S--(``PFXQFF/1
M`%978A7!8P)``.&T&#\@23%6`!!`*&YDP!H'N!5C<HD'``$$U8QL"I&*"0KB
I!P`!A+"/2(<3%6U$`(``&C`$$&``-L:,GCUB8/0`````245.1*Y"8((`

[download]
Notes:
Requires GD 1.3 or greater. Also, try passing this: http://thunderbolt.csd.unb.ca/~bdpc/g.png along with the script at the command line (ie script.pl g.png) or try your own.


--
Rock is dead. Long live paper and scissors!

In reply to GD Japh by LTjake

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.