#!/usr/bin/perl

%)         =(          $(         %(
      8-(         8^(        $-)         ?O_o
&-[        8-(         8)         ]:0)
      )=>          $)         ,)         ;#(       
$_=         X-()       ?o_O        :q

:]           #-- Just A.Smiley      
    :|          ();           s:]
.\         *(         \#-)
     \-:
:x         ;-y

  ;) <~.Smiley;   Another one ~> (;

;s    :()       [^;     ]: Hacker-Smiley:  #B-]

;#)                       Cthulhu Smiley:  {:=E
     ;{
s:(       \S*)          ?-(  
     \S*)       \s*()
$:\2 \1:x             ;}
print    ;0|
print+q;     =B-]
;=>     %)          &~()