Re: Pixel art

Out of curiosity I used the 'download' link and tested it using Strawberry Perl but got the following:

Bareword found where operator expected at ob.pl line 21, near "qw`&JAP
+X]//gr"
  (Might be a runaway multi-line // string starting on line 19)
Can't modify constant item in substitution (s///) at ob.pl line 32, ne
+ar "qw`&JA
PX]//gr#xP/
  #MP[\J]PEFXGHIP/
   #MP{}JP  P__/
   #MZPAC|
    #MPDB/
    #MZP|
     #MP|
     #Mw|
     #Mw|
     #M/
     #/
     #
"
syntax error at ob.pl line 32, near "qw`&JAPX]//gr#xP/
  #MP[\J]PEFXGHIP/
   #MP{}JP  P__/
   #MZPAC|
    #MPDB/
    #MZP|
     #MP|
     #Mw|
     #Mw|
     #M/
     #/
     #
"
Execution of ob.pl aborted due to compilation errors.
[download]

Did the closing quote mark was lost somewhere underway? I'm not ashamed to say I don't really understand what's going on here :-)

-- Time flies when you don't know what you're doing

In Section Obfuscated Code