#!/usr/bin/perl

"N3Uad0c31S8"=~m;ad0c;;$_=pack"a4",substr($&,0,1).(chr((408+$+[0]^3)>>
+2).eval{$`=~m$([^3U])$;$1}. 
chr(ord("P")+hex("E")+abs("abp4Rd9Js$$AKls")+0x17));"HaQRdS*{9d8sH}-AG
+hdJ72HBms;aehJd?UJs:bls8"=~ 
m$\w{2,5}(S)\*\{9([\d\w])?.*?(\w)hJ$;$_.=${1}.$::2.$3.chr(oct((10<<3|1
+1)+$=));print$~lc,"\n"

[download]
Well, this does not do any useful thing. It just printfs my name on stdout and returns. It was my first obfuscated perl code so please execude me! ;)

Edit: chipmunk 2002-03-04

In reply to First attempt at obfuscated perl! by Anonymous Monk

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.