# 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