I know this gets more wicked and sinful with every new post but I found this altered piece of the above obfuscated code rather amusing:

@c=split/\s/,<DATA>;$c=pack("C".scalar(@c),@c);eval$c;
__DATA__
36 116 61 112 97 99 107 40 34 99 99 99 99 34 44 48 120 55 52 44 48 120
+ 54 57 44 48 120 54 100 44 48 120 54 53 41 59 109 97 112 123 115 117 
+98 32 95 95 59 36 47 61 36 95 59 115 117 98 32 95 59 109 97 112 123 3
+6 95 91 36 47 93 91 36 95 93 123 95 125 61 114 97 110 100 40 101 118 
+97 108 40 36 116 41 41 37 50 59 112 117 115 104 64 123 36 95 91 36 47
+ 93 91 36 95 93 123 109 97 112 125 125 44 40 92 36 95 91 95 36 47 93 
+91 36 95 93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 36 95 93 1
+23 95 125 61 62 92 36 95 91 36 47 93 91 95 36 95 93 123 95 125 61 62 
+92 36 95 91 36 47 93 91 95 95 36 95 93 123 95 125 44 92 36 95 91 95 3
+6 47 93 91 95 36 95 93 123 95 125 61 62 92 36 95 91 95 36 47 93 91 95
+ 95 36 95 93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 95 36 95 
+93 123 95 125 61 62 92 36 95 91 95 95 36 47 93 91 95 95 36 95 93 123 
+95 125 44 41 125 40 48 46 46 36 95 95 41 125 40 48 46 46 40 36 95 95 
+61 40 115 104 105 102 116 124 124 50 52 41 45 49 41 41 59 115 117 98 
+32 95 95 123 40 43 43 40 36 45 61 36 95 91 36 64 93 41 41 60 61 36 95
+ 95 63 43 43 36 45 58 48 125 115 117 98 32 95 123 40 45 45 40 36 45 6
+1 36 95 91 36 64 93 41 41 62 61 48 63 36 45 45 49 58 36 95 95 59 125 
+95 95 59 95 95 59 119 104 105 108 101 40 41 123 109 97 112 123 36 47 
+61 36 95 59 36 92 61 34 92 110 34 59 112 114 105 110 116 32 109 97 11
+2 123 36 95 91 36 47 93 91 36 95 93 123 115 117 98 125 61 36 95 91 36
+ 47 93 91 36 95 93 123 95 125 63 39 42 39 58 39 46 39 59 36 46 43 61 
+36 36 95 32 102 111 114 40 64 123 36 95 91 36 47 93 91 36 95 93 123 1
+09 97 112 125 125 41 59 36 33 91 36 47 93 91 36 95 93 123 95 125 61 3
+6 95 91 36 47 93 91 36 95 93 123 95 125 59 36 33 91 36 47 93 91 36 95
+ 93 123 95 125 61 40 36 46 61 61 51 63 49 58 40 36 46 33 61 50 63 48 
+58 40 36 33 91 36 47 93 91 36 95 93 123 95 125 61 61 49 63 49 58 48 4
+1 41 41 59 95 95 59 36 46 61 126 115 32 95 46 95 95 59 36 95 91 36 47
+ 93 91 36 95 93 123 115 117 98 125 59 125 40 48 46 46 36 95 95 41 59 
+125 40 48 32 46 46 32 36 95 95 41 59 109 97 112 123 36 47 61 36 95 59
+ 109 97 112 123 36 95 91 36 47 93 91 36 95 93 123 95 125 61 36 33 91 
+36 47 93 91 36 95 93 123 95 125 125 40 48 46 46 36 95 95 41 125 40 48
+ 46 46 36 95 95 41 59 95 59 102 111 114 40 49 46 46 52 41 123 95 59 9
+5 95 59 125 95 59 115 108 101 101 112 32 49 59 125 102 111 114 40 49 
+46 46 51 41 123 95 95 59 95 59 95 95 59 95 59 95 59 125 95 95 59 95 5
+9 95 95 59 95 59 95 95 59 10
[download]

--

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234
+5678)))
[download]

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.