Your version of perl seems to believe that the s/// ends right before the qw`, which is wrong. The qw` is supposed to be inside the s///, that's why there's no need for a closing backtick.
I must admit I have no idea why it doesn't work for you. I tested both the download link and the copy-paste with Strawberry Perl 5.14.2.
Here is a (hopefully) more compatible version, thanks to Anonymous :
$_='ope
n P+I0;priPnt
(HP PIS"\Ubm",pac
kH"xP8Il2sK4Ia*(\u
hH24PI)K*",74,1I2,2
4H,PHPIL32,1K,4,unIpa
cHk(PHPLu=>uc"Kp_/s[I^
-HjPH=PL0d7l3+iK?,v_r
kHoPH3[ParLue=anKzg%7=
uH)<=y;/_"P),LsortK{ope
nH*S,">BHB BL$0.bmPp"}
gHrep{s/BN\ BLS/P\t/
;Hs/.\Bn N BP/\
tH/,unBt N BHil
!sH/(.)B[^N BH\h
\JPHUb- BqO H]/$
1JP$H1/B}QO H<0>
)JAPH;#UNQ HeaP|
&J~~PH';s H[A-R|
&~J]|PHq###%jAPHeg
;my$JAPH=eval.'P/
\MP@%J+P__H::$P/
|MPTUJP P___
|MAPZX|
\MPWY|
|MAP|
\MP|
|Mw|
|Mw/
|M/
|/
'
If you're curious enough, you might try it. You may also try replacing
eval with
print, this should print some human-readable code to STDOUT.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.