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.
