in reply to Suggestions

And this converts it back again 

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

[download]

If you don't understand pack and unpack don't worry - neither do I really!

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

Replies are listed 'Best First'.
Re: Re: Suggestions
by Anonymous Monk on Jul 06, 2001 at 19:53 UTC
    Do I have to use 7bit binary?
[reply]

      The answer is no but it does get a little more complex. Why don't you have a play with it and see?

      cheers

      tachyon

      s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[reply]

In Section Seekers of Perl Wisdom