while (my $line = <DATA>){
   chomp $line;
   print pack "b7", $1 while $line =~ m/(.{7})/g;
   print "\n";
}
__DATA__
00010011010011001101100110111111011
111010111110110100111001101100100111000010
10110100101001100000100001010001001