Smile!

[Anonymous Monk]

#!/usr/bin/perl

            # smiley - 

     ($R=q#for         (split/&/
    =>q;4a&75@^       73&74@20^41
   &@6e@@6f^&@74     ^68&&65@72&20
    &^50@65&@72       ^@6c&@20^48
     @@61&@63&         6b@65&72;)



{print                       &@pack
  ^c@&=>                   hex$_}
    ;print               "\n"#)
      =~s,[&^@\s]+, ,g;eval$R

[vroom]

Cool... I fixed it up for you if you put your code in code tags like this <CODE> print $code[0];</CODE> your code will show up nicely making <> show up and [] not turn into links. You can read all about it at Perl Monk Procedures

vroom | Tim Vroom | [e-mail]