I don't know what's wrong... it worked for me and it certainly is valid Perl. Actually I was thinking myself a log there - the real clean version would look like so:
------------------
print pack "b*",join '',map '0'x$_.'1',split m||,'112111001020031006240200'.
'10100010310041011202200661112022003010651014010301011011202200';