What about this?

#!/usr/bin/perl -w
print pack"B*", $_ for qw( 
01001010 01110101 01110011 01110100 00100000 01100001 
01101110 01101111 01110100 01101000 01100101 01110010 
00100000 01010000 01100101 01110010 01101100 00100000 
01001000 01100001 01100011 01101011 01100101 01110010 );
[download]

Perhaps you should have a look at this node ...