Smile!

#!/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
[download]

Comment on Smile! Download Code

Replies are listed 'Best First'.
RE: Smile! by vroom (His Eminence) on Mar 04, 2000 at 04:34 UTC
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 \| vroom@cs.hope.edu	[reply] [d/l]