use Image::Xbm;
my $bits = pack 'b*',
  Image::Xbm->new_from_string( $str )->as_binstring ;
[download]