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 :
in reply to Re: Pixel art
in thread Pixel art
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.
;Hs/.\Bn N BP/\
tH/,unBt N BHil
\JPHUb- BqO H]/$