$ perl -le'

my $string = q/01010110111000/;

print $string =~ tr/1//;

my $packed_string = pack q/b*/, $string;

print unpack q/%32b*/, $packed_string;
'
7
7