binary parsing

[biohisham]

My very humble first attempt at obfuscation.... Hope this can be an initiator for me into deeper unbeaten paths...

print
        join(' ',map{unpack("A", pack("B8",$_)),''}
        qw(
                        01010000
                        01100101
                01110010
                01101100
                        00001010
                        01001101
                01101111
                01101110
                        01101011
                        01110011
                00001010
                01010010
                        01101111
                        01100011
                01101011
                01110011
                        00001010
        ));